动态的单元格区域赋给数组

zongheng20114 · 发表于 2015-12-12 15:47

如果要表示最大的单元格行号，可以用sheet1.[a65536].End(3).Row
数组表达如下
arr= sheet1.Range("a1:j" & sheet1.[a65536].End(3).Row)
但是，如果要表达最大的列呢，数组应该怎么写呢

zax010 · 发表于 2015-12-12 16:01

lr = Sheet1.[a65536].End(xlUp).Row
lc = Sheet1.[iv1].End(xlToLeft).Column
arr = Sheet1.Range("a1").Resize(lr, lc)

Zamyi · 发表于 2015-12-12 16:13

MsgBox Cells(1, Columns.Count).End(1).Column'第一行最后一列
MsgBox Cells.Find("*", , , , 2, 2).Column'工作表最后一列

zongheng20114 · 发表于 2015-12-15 15:42

zax010 发表于 2015-12-12 16:01
lr = Sheet1.[a65536].End(xlUp).Row
lc = Sheet1..End(xlToLeft).Column
arr = Sheet1.Range("a1").Resi ...

谢谢你，问题已得到解决

zongheng20114 · 发表于 2015-12-15 15:42

zongheng20114 发表于 2015-12-15 15:42
谢谢你，问题已得到解决

谢谢你，问题已解决

前进者 · 发表于 2022-4-4 08:49

正好用到，标记一下，以便学习！

cjc209 · 发表于 2022-4-4 09:35

zdl = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
zdh = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

		自动登录	找回密码
密码			免费注册

[转帖] 动态的单元格区域赋给数组