excel VBA中的Worksheet_SelectionChange函数问题

你好，右击左下角Sheet1标签，选择“查看代码”，粘贴复制上面的代码就可以了。
你这个代码是Worksheet_SelectionChange类型的，它的意思是只要你重新选择一下单元格，代码就会自动运行一次，所以像上面那样插入代码就可以了。
另外看了一下你的代码，发现运行和不运行没什么区别，问下你想实现什么呢？我可以帮你该改下，嘿嘿~

Worksheet_SelectionChange事件代码应该放在 工作表模块中 不是整个工作簿级别的Thisworkbook模块
在工程窗口中 双击你要放代码的工作表模块（比如Sheet1），打开一个模块编辑窗口，把代码放进去

真想知道你这段代码是神马意思?
If Cells(i, 8).Value < Date And Cells(i, 8).Value > 0 Then
Cells(i, 9) = Cells(i, 9).Value
Cells(i, 12) = Cells(i, 12).Value
Cells(i, 13) = Cells(i, 13).Value
Cells(i, 16) = Cells(i, 16).Value
Cells(i, 17) = Cells(i, 17).Value
Cells(i, 18) = Cells(i, 18).Value
End If

真是有意思了

代码无问题，返回工作表SHEEt1中，若F列不是空列，随便选择一下单元格，代码就会自动运行一次。