我希望我的宏从另一张表上的电话号码列表中读取,计算行数,然后从A1中构建一个数组:从行计数中....该数组将始终从A1开始.
Dim lrow As Variant
lrow = Cells(Rows.Count, 1).End(xlUp).Row
Dim PhonesArray as Variant
PhonesArray = " [A1:A" & lrow & "].Value2
Run Code Online (Sandbox Code Playgroud)
我无法将上边界(lrow)传递给PhonesArray.
它应该运行为
PhonesArray = [A1:A**40**].Value2
Run Code Online (Sandbox Code Playgroud)
lrow变量正确计算,但我无法将其传递给数组构造.静态范围按预期工作.如果此问题已得到解决,我们非常感谢您提供任何帮助并提前道歉.我无法通过搜索找到解决方案.
我试图在宏中向右移动一个单元格。
Range("C5").Select <-- a formula that needs to be copied
Selection.Copy
Range("B5").Select
Selection.End(xlDown).Select
SendKeys ("{TAB}")
Range(Selection, Selection.End(xlUp)).Select
Selection.Paste
Run Code Online (Sandbox Code Playgroud)
SendKeys 似乎不是这个问题的答案,因为它将 TAB 或向右箭头直接放入宏代码的下一行,仅模拟键盘敲击。是否有另一种方法可以将我的单元格选择从 Bn 的末尾向右移动到 Cn,其中 n 未知?