小编Mar*_*ain的帖子

将上边界传递给数组

我希望我的宏从另一张表上的电话号码列表中读取,计算行数,然后从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变量正确计算,但我无法将其传递给数组构造.静态范围按预期工作.如果此问题已得到解决,我们非常感谢您提供任何帮助并提前道歉.我无法通过搜索找到解决方案.

excel vba excel-vba

3
推荐指数
1
解决办法
66
查看次数

向右移动一个单元格

我试图在宏中向右移动一个单元格。

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 未知?

excel vba sendkeys

3
推荐指数
1
解决办法
2万
查看次数

标签 统计

excel ×2

vba ×2

excel-vba ×1

sendkeys ×1