我的特定代码行有问题:
ActiveSheet.Range("A" & rowCount & ":" & Mid(alphabet, totHdrLngth, 1) & belowRowCount)
其中alphabet是包含大写字母A到Z的字符串。
我不断收到以下错误:
Run-time error '5':
Invalid Procedure call or argument
我尝试创建一个字符串“inRange”并将代码更改为:
inRange = "A" & rowCount & ":" & Mid(alphabet, totHdrLngth, 1) & belowRowCount
curRange = ActiveSheet.Range(inRange)
但这没有帮助(因为我认为没有帮助)。有什么建议么?
虽然创建这样的范围通常是不受欢迎的,但这样做的方法是使用 SET 这个词(就像@Gary McGill 在评论中所说的那样)。以下是如何执行此操作的示例:
Sub test()
Dim alphabet As String
Dim totHrdrLngth As Long
Dim belowRowCount As Long
Dim rowCount As Long
Dim inRange As Range
alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
totHrdrLngth = 5
belowRowCount = 10
rowCount = 5
' Gives us A5:E10
Set inRange = Range("A" & rowCount & ":" & range2 & _
Mid$(alphabet, totHrdrLngth, 1) & belowRowCount)
End Sub
您正在当前范围内运行此宏,因此不需要指定 ActiveSheet.Range。我希望这有助于您实现您想要实现的目标。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)