Question

如何在EXCEL自带的visual basic中使用精简的代码？

在附件图一中，因K栏单元格的数据会发生变化，我想点击“修正交期”这个按钮，然后J栏的单元格就等于K栏单元格(黄色空格部分，我一点击按钮，左右数值就相等了)，我写的VB代码如下：

Private Sub CommandButton1_Click()
If Cells(3, 12) = "Y" Then
Cells(3, 10) = Cells(3, 11)
End If
If Cells(4, 12) = "Y" Then
Cells(4, 10) = Cells(4, 11)
End If
If Cells(5, 12) = "Y" Then
Cells(5, 10) = Cells(5, 11)
.............

..............
If Cells(200, 12) = "Y" Then
Cells(200, 10) = Cells(200, 11)
End If
End Sub

我要从第三排一直要计算到200排左右，这中间需要输入的代码有几百条，
有没有比较简单的办法，可以简化这个代码，请高手指点，谢谢！

Answer 1

用FOR循环
for i=3 to 200

If Cells(i, 12) = "Y" Then

Cells(i, 10) = Cells(i, 11)
End If

next i