vbs控制excel,表一复制到表二的空白行

Posted 2023-03-17

我的表在c:\试用.xls,里面有sheets(1).sheets(2).里面都有数据，我要这样做，把sheets(1)里的第1行整行复制到sheets(2) A列里空白行，就是说如果本来sheets(2)的前13行都是有内容的.把复制回来的内容粘贴到sheets(2) 的14行里，然后把sheets(1)的第一行删掉，全程只执行一次
sheets(2)的内容不是固定13的..要找一次直到空白行才粘贴

Sub 复制粘贴()

Dim i

    i = Sheets("Sheet2").Range("A" & Cells.Rows.Count).End(3).Row + 1
'获取SHEET2 A列最后一个使用的单元格行号+1
    Sheets("sheet1").Rows("1").Copy
'复制sheet1 第一整行
    Sheets("Sheet2").Rows(i).PasteSpecial
'sheet2 A列最后使用的一行+1的行数粘贴
    Application.CutCopyMode = False
'取消复制状态
    Sheets("sheet1").Rows("1").Delete Shift:=xlUp
 '删除整行（注意是删除行，不是清除数据。.ClearContents是清除数据）
End Sub

参考技术A vbs代码如下：

'══代══码══开══始════
set oexcel=CreateObject("excel.application")
oexcel.workbooks.open("c:\试用.xls")
oexcel.visible=true
do
i=i+1
k=oexcel.worksheets(2).cells(i,1).value
loop until k=""
oexcel.worksheets(1).rows(1).copy(oexcel.worksheets(2).rows(i))
oexcel.activeworkbook.save
oexcel.quit
'Coded By escortmnm from VBS团队
'══代══码══结══束════本回答被提问者采纳