Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 当有多个长度不同的列时查找第一个空行_Excel_Vba - Fatal编程技术网

Excel 当有多个长度不同的列时查找第一个空行

Excel 当有多个长度不同的列时查找第一个空行,excel,vba,Excel,Vba,我有一个有趣的(希望)给你们大家,提前谢谢 我正在创建一个报告,它将从其他工作簿中获取表格,并将它们复制到默认工作簿中的单个报告页 重复此操作,直到扫描完所有工作簿。我使用LastRow和LastPos来保持我在工作表中的位置,以免覆盖,但我发现有些报告不使用我试图查找LastRow的列 这样做类似于Range(“A65536”).End(xlup)。选择I必须检查每个报告以查看最长的列是什么。可能是A、B、C或D 我的问题是,有没有一种简单的方法来检查这些值并找到最大值,这样我就可以分配给变量

我有一个有趣的(希望)给你们大家,提前谢谢

我正在创建一个报告,它将从其他工作簿中获取表格,并将它们复制到默认工作簿中的单个报告页

重复此操作,直到扫描完所有工作簿。我使用LastRow和LastPos来保持我在工作表中的位置,以免覆盖,但我发现有些报告不使用我试图查找LastRow的列

这样做类似于
Range(“A65536”).End(xlup)。选择
I必须检查每个报告以查看最长的列是什么。可能是A、B、C或D

我的问题是,有没有一种简单的方法来检查这些值并找到最大值,这样我就可以分配给变量并使用它

谢谢


Jeff

我使用此功能满足我所有的“最后”需求:

用法如下:

dim LR as Long
LR = Last(1,Sheet1.Cells)

您好,苏:看起来不错,但问题是……查看代码并查看
rng.cells(1)
这不是指定了“A1”还是表示所有单元格?Jeffit是你经过的第一个单元格。因此,您可以执行类似Last(1,Sheet1.Range(“A5:J10”)的操作,并返回该范围内最后使用的单元格。此外,要获得第一个空行,您需要在函数结果中添加1。明白了……对我来说似乎工作得很好……是的,我发现我必须为行添加1……)再次感谢!
dim LR as Long
LR = Last(1,Sheet1.Cells)