VBA 当打开excel文件时读取sheet1工作表使用的行数的全局变量怎么实现?
发布网友
发布时间:2022-05-07 13:02
我来回答
共1个回答
热心网友
时间:2023-10-31 15:33
首先没有这个全局变量的哦
通常可以用这句获取最后一行的行号
最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW
注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。
2、1表示第一列,前提是第一列必须要有数值,如果第一列为空白,则需要修改该参数。追问我是想在thisworkbook写上=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW这个获取最后一行。目的是在sheet1里添加了新内容就从新内容的位置起处理数据。新内容之前的数据就不需要再处理了。
追答可以的,自己尝试一下。这样的话 就不可以整页复制,而要根据实际的区域进行复制
热心网友
时间:2023-10-31 15:33
首先没有这个全局变量的哦
通常可以用这句获取最后一行的行号
最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW
注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。
2、1表示第一列,前提是第一列必须要有数值,如果第一列为空白,则需要修改该参数。追问我是想在thisworkbook写上=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW这个获取最后一行。目的是在sheet1里添加了新内容就从新内容的位置起处理数据。新内容之前的数据就不需要再处理了。
追答可以的,自己尝试一下。这样的话 就不可以整页复制,而要根据实际的区域进行复制
热心网友
时间:2023-10-31 15:33
首先没有这个全局变量的哦
通常可以用这句获取最后一行的行号
最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW
注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。
2、1表示第一列,前提是第一列必须要有数值,如果第一列为空白,则需要修改该参数。追问我是想在thisworkbook写上=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW这个获取最后一行。目的是在sheet1里添加了新内容就从新内容的位置起处理数据。新内容之前的数据就不需要再处理了。
追答可以的,自己尝试一下。这样的话 就不可以整页复制,而要根据实际的区域进行复制
热心网友
时间:2023-10-31 15:33
首先没有这个全局变量的哦
通常可以用这句获取最后一行的行号
最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW
注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。
2、1表示第一列,前提是第一列必须要有数值,如果第一列为空白,则需要修改该参数。追问我是想在thisworkbook写上=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW这个获取最后一行。目的是在sheet1里添加了新内容就从新内容的位置起处理数据。新内容之前的数据就不需要再处理了。
追答可以的,自己尝试一下。这样的话 就不可以整页复制,而要根据实际的区域进行复制
热心网友
时间:2023-10-31 15:33
首先没有这个全局变量的哦
通常可以用这句获取最后一行的行号
最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW
注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。
2、1表示第一列,前提是第一列必须要有数值,如果第一列为空白,则需要修改该参数。追问我是想在thisworkbook写上=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW这个获取最后一行。目的是在sheet1里添加了新内容就从新内容的位置起处理数据。新内容之前的数据就不需要再处理了。
追答可以的,自己尝试一下。这样的话 就不可以整页复制,而要根据实际的区域进行复制
热心网友
时间:2023-10-31 15:33
首先没有这个全局变量的哦
通常可以用这句获取最后一行的行号
最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW
注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。
2、1表示第一列,前提是第一列必须要有数值,如果第一列为空白,则需要修改该参数。追问我是想在thisworkbook写上=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW这个获取最后一行。目的是在sheet1里添加了新内容就从新内容的位置起处理数据。新内容之前的数据就不需要再处理了。
追答可以的,自己尝试一下。这样的话 就不可以整页复制,而要根据实际的区域进行复制
热心网友
时间:2023-10-31 15:33
首先没有这个全局变量的哦
通常可以用这句获取最后一行的行号
最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW
注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。
2、1表示第一列,前提是第一列必须要有数值,如果第一列为空白,则需要修改该参数。追问我是想在thisworkbook写上=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW这个获取最后一行。目的是在sheet1里添加了新内容就从新内容的位置起处理数据。新内容之前的数据就不需要再处理了。
追答可以的,自己尝试一下。这样的话 就不可以整页复制,而要根据实际的区域进行复制
热心网友
时间:2023-10-31 15:33
首先没有这个全局变量的哦
通常可以用这句获取最后一行的行号
最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW
注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。
2、1表示第一列,前提是第一列必须要有数值,如果第一列为空白,则需要修改该参数。追问我是想在thisworkbook写上=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW这个获取最后一行。目的是在sheet1里添加了新内容就从新内容的位置起处理数据。新内容之前的数据就不需要再处理了。
追答可以的,自己尝试一下。这样的话 就不可以整页复制,而要根据实际的区域进行复制
VBA 当打开excel文件时读取sheet1工作表使用的行数的全局变量怎么实现...
首先没有这个全局变量的哦 通常可以用这句获取最后一行的行号 最后一行行号=SHEETS("SHEET1").CELLS(65536,1).END(XLUP).ROW 注意:1、最大行数不会大于65536.用这个数值的好处是可以兼容2003版,如果确定是2007以后,可以将该数值设置为100万。2、1表示第一列,前提是第一列必须要有数值,如果第...
Excel VBA 里,如何得到Sheet1表格中,有多少行记录?
1、按alt+F11打开vba编辑器;2、输入以下代码 Sub 行()MsgBox "sheet1共有" & Sheet1.UsedRange.Rows.Count & "行记录。"End Sub3、点击运行。
python如何判断excel有多少行
查看excel有多少行的方法1 打开一张工作表,在工作表左下角可以点击带有三角形的小图标上来向下移动流动条,显示到工作表最后一行或最后一列。就可以看到有多少行多少列,但这样方法比较费时。查看一张工作表中有多少行。最快速的一个方法就是按键盘上的CTRL+向下的光标键。可以一次性显示出最后一行。...
excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决
1、点击Excel界面左下角的录制宏按钮录制宏。2、在【宏名】处输入一个有意义的名称,帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。4、按Alt+F11打开VBE界面,如下图。5、在代码部分...
excel,如何获取被选中单元格所在的行数
使用VBA代码解决 Excel版本参考:2010 1、ALT+F11,打开VBE对话框 2、双击对应的工作表标签,复制以下代码,粘贴 Private Sub Worksheet_SelectionChange(ByVal Target As Range)[B5] = ActiveCell.RowEnd Sub3、关闭,查看效果
EXCEL 怎么用VBA实现:复制sheet1里面的A1,B2,C3单元格到sheet2里的A1...
Sub a()Set sh1 = Sheet1 Set sh2 = Sheet2 sh1.Range("a1").Copy sh2.Range("a1")sh1.Range("b2").Copy sh2.Range("b2")sh1.Range("c3").Copy sh2.Range("c3")sh2.Select sh2.Range("a1").Select End Sub
Excel VBA怎样实现整行/列的遍历?
Excel VBA使用方法:1 打开一个Excel文件,鼠标右击下面的工作表(如sheet1)。选择“查看代码”,就可以打开VBA编辑界面。2 选择如下图所示的下拉菜单,选择“worksheet”。3 选择如下图所示的下拉菜单,选择对应的触发模式。这里我们选择BeforeDoubleClick,意思就是说:在本工作表鼠标双击(之前),将...
vba如何读取excel中某单元格的行数或列数
1、将单元格所选单元格的行号和列号,分别用VBA显示在下面的两个单元格中,如下图所示:2、按下Alt+F11,打开VBA编辑界面,选择当前工作表编写代码,如下图所示:3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中:4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个...
求助!利用VBA在指定文件夹中打开全部Excel文件并复制指定单元格内容_百 ...
Sub 打开1()Dim myPath$, AK As Workbook, OAK As Workbook Set fso = CreateObject("Scripting.FileSystemObject")Set OAK = ActiveWorkbook myPath = "C:\VBA\data" '把文件路径定义给变量 Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动 Set FD = fso.GetFolder(myPath)I = 1 F...
Excel VBA中,当打开一个文件时,让它自动再打开别的xls文件,然后选取此...
很简单啊,你将新打开的workbook设置为一个对象就行了。希望下面的代码对你有帮助。Dim xlbook As Workbook dim xlsheet as WorkSheet Set xlbook = Workbooks.Open(your xls file)'设置你的工作薄对象等于xlbook set xlsheet = xlbook.sheets(your sheet)'设置xlsheet等于你的工作表 xlsheet....