要用在其他行，要么改vba代码，要么就设置个输入口，输入那一行的标志。
代袭早码已发送
Dim x As Integer
If Selection.Cells.Count = 1 Then
x = Selection.Cells.Row
Range("A" & x & ",C" & x & ",D" & x & ",BA" & x & "").Select
Range("慎禅帆宽雹BA" & x & "").Activate
Selection.copy
End If
混个答题经验
这个简单，你的录制宏代码呢
这个简单，把代码发出来看看
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024