Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
r = Target.Row
For c1 = 9 To 19
Cells(3, c1).Copy
Cells(r, c1).PasteSpecial
Next c1
Application.CutCopyMode = False
Cells(r, 2).Select
End If
End Sub
就可以了，你试试看
if range("b" & i).value <> "" then
复制。。。。
end if
能看明白吗？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024