VBA Range怎样用变量表示一行中的某个区域 50
不知道第4条语句的变量区域怎样表示?用这样的方式提示错误:Sheets("表2").Range("A"&i:"M"&i).Value=Sheets("表1").Range...
不知道第4条语句的变量区域怎样表示?
用这样的方式提示错误:
Sheets("表2").Range("A" & i:"M" & i).Value = Sheets("表1").Range("A4:M4").Value
Sub Bank_1()
Dim i&
For i = 5 To Sheets("表2").Rows.Count '检索所有行
If Sheets("表2").Range("A" & i) = "" Then ‘如果是空行
Sheets("表2").Range("A" & i:"M" & i).Value = Sheets("表1").Range("A4:M4").Value
’将表1的A4:M4区域的内容复制到 表2的空行("A" & i:"M" & i)区域
Exit For '结束循环
End If
Next
Sheets("表1").Range("B4").Select
End Sub 展开
用这样的方式提示错误:
Sheets("表2").Range("A" & i:"M" & i).Value = Sheets("表1").Range("A4:M4").Value
Sub Bank_1()
Dim i&
For i = 5 To Sheets("表2").Rows.Count '检索所有行
If Sheets("表2").Range("A" & i) = "" Then ‘如果是空行
Sheets("表2").Range("A" & i:"M" & i).Value = Sheets("表1").Range("A4:M4").Value
’将表1的A4:M4区域的内容复制到 表2的空行("A" & i:"M" & i)区域
Exit For '结束循环
End If
Next
Sheets("表1").Range("B4").Select
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询