Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.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
Vba 查找行宏说明_Vba_Excel - Fatal编程技术网

Vba 查找行宏说明

Vba 查找行宏说明,vba,excel,Vba,Excel,我已经看了几个关于使用宏查找电子表格上最后一行/单元格的线程,我有几个问题 首先,以下代码是否只返回行值或整个单元格值(“1”或“A1”) 或者,除了显而易见的(从底部开始查找最后一个单元格加1的事实)之外,这些代码之间是否存在差异(在显示或提取数据的方式上)?我只需要最简单的(或者最好的,如果你有一个好的参数)一个只返回行(而不是单元格) (一) B.) (三) 只拉一行后面的要点是,我有两个不同的表,我在同一张工作表上没有合并。我需要删除有数据的列之间的空白列。它不允许我使用“删除空白单元格

我已经看了几个关于使用宏查找电子表格上最后一行/单元格的线程,我有几个问题

首先,以下代码是否只返回行值或整个单元格值(“1”或“A1”)

或者,除了显而易见的(从底部开始查找最后一个单元格加1的事实)之外,这些代码之间是否存在差异(在显示或提取数据的方式上)?我只需要最简单的(或者最好的,如果你有一个好的参数)一个只返回行(而不是单元格)

(一)

B.)

(三)

只拉一行后面的要点是,我有两个不同的表,我在同一张工作表上没有合并。我需要删除有数据的列之间的空白列。它不允许我使用“删除空白单元格”代码简单地删除空白单元格。我假设这是因为在上表中,一列可能有空白单元格,但在下表中,同一列可能有数据。如果您能解释如何使“删除空白单元格”代码工作,那可能会更容易,除了,我需要它只删除列中的空白单元格,而不是行中的空白单元格,因为我需要保持表之间的分隔

我需要回答的第二件事是,如果我把一列和一行放在一起,一个使用公式(行)中的值,另一个假设为字符串,我该如何做呢

例)


TOS和TOE是我的行值,我需要选择B列中这些行的所有单元格。

帮助系统确认

返回范围中第一个区域的第一行的编号

所以这只是一个(长)数字

如果要获取对行本身的引用,请执行以下操作:

Dim rng As Range
Set rng = Range("A1").EntireRow

A) 和C)相同,但它们查找A列的最后一行,而B)查找工作表的最后一行(不仅仅是A列)

您的代码应该是:

Range("B" & TOS & ":B" & TOE).Select
引号内带冒号“:”(和另一个符号)。(不过,还有其他方法可以写这篇文章。)

要删除单元格而不是整行,请执行以下操作:

Range("A1").Delete xlShiftUp

此外,A&C将找到最后一行,而B将找到最后一行,即使该行是隐藏的。您已经提供了很多帮助,但现在我很好奇row和EntireRow之间的区别。整行和行之间返回的Range对象有什么区别?另外,当您谈到获取行的引用时,您的意思是只要
LookIn:=xlFormulas
,我就无法使用
Dim-TOS获取行的引用吗?@RonRosenfeld true如果
LookIn:=xlValues
-但如果
LookIn:=xlValues
(或者,如果没有指定此参数,但上次作为
xlValues
@brettdj运行时,我没有意识到这一点。Thanks@CSSWormy这是一个新的、具体的问题,因此您应该开始一个新的主题,并提供任何错误消息的详细信息。
Dim TOS As Long
TOS = Range("A65536").End(xlUp).Row + 1
Range("B" & TOS:"B" & TOE).Select
Dim rng As Range
Set rng = Range("A1").EntireRow
Range("B" & TOS & ":B" & TOE).Select
Range("A1").Delete xlShiftUp