66问答网
所有问题
Sheet1.Range("A65536").End(xlUp).Offset(0, 1) = .Value 这里的end(xlUp)什么意思~~
如题所述
举报该问题
其他回答
第1个回答 2013-08-18
("A65536").End(xlUp) 表示A列最后一行有数据的单元格
相似回答
VBA复制表
1
的
A
:M列有数据区域到表2的A:M列有数据区域的下
一
列(不能覆 ...
答:
sh2row = Sheet2.Range("
A65536
"
).End(xlUp)
.Row
Sheet1.Range(
"A1:M" & sh1row).Copy Destination:=Sheet2.Range("A" & sh2row +
1)End
Sub
Excel VBA 里,如何得到
Sheet1
表格中,有多少行记录?
答:
1、按alt+F11打开vba编辑器;2、输入以下代码 Sub 行()MsgBox "
sheet1
共有" & Sheet1.UsedRange.Rows.Count & "行记录。"End Sub3、点击运行。
EXCEL中用代码怎么实现。 从
a
行最后
一
个有数据的单元格后的空格开始粘贴...
答:
ThisWorkbook.Sheets
(1)
.Cells(ThisWorkbook.Sheets(1).Rows.Count,"A"
).End(xlUp).Offset(1,0
).PasteSpecial Paste:=xlValues '从a行最后一个有数据的单元格后的空格开始粘贴 好像也没有短多少,只是少了一层,用Cells(Rows.Count,"A")得到A列最下面的单元格(可能是
A65536
或者A1048576),然后...
vba替换 将
sheet1的
数据替换为sheet2的数据
答:
Sub 替换()Dim rng As
Range,
Aarr(), Barr1(), Barr2 endrow
=
Sheet1.Range(
"
A65536
"
).End(xlUp)
.Row Barr1 = Sheet2.Range("A5:C9").
Value
Barr2 = Sheet2.Range("E5:G9").Value For Each rng In Sheet1.Range("A1:C"
&
end
row)For i = UBound(Barr1) To 1 Step -...
excel工资条的操作过程
答:
首先打开要操作的Excel工资表,为了不破坏原表
(Sheet1)
结构,我们仍然采用在Sheet2中进行操作的方法。由于这个工资表一共有L列,18行,要复制的表头项目在第二行,所以在第一个单元格中输入如下公式: =IF(MOD(ROW(),2
)=0,
INDEX
(sheet1
!$A:$L,INT(((ROW()+1)/2))+2,COLUMN()),sheet1!A$2) 接下来的...
在EXCEL中,我要在每条记录前插入第一行标题该怎么做
答:
5、再按“ALT+F8”;6、选中“加标题”,再点“执行”,即可!7、要恢复原样,就重复第5条,选中“还原”,再点“执行”,即可!代码如下:Sub 加标题()Dim r As Long Dim lastrow As Long Application.ScreenUpdating = False lastrow
=
Sheet1.Range(
"
a65536
"
).End(xlUp)
.Row r = 3 Do...
大家正在搜