Vbscript复制上一次使用excel文件中的行 [英] Vbscript copy last used row from a excel file

问题描述

i have a excel file, i want to copy the last used row from sheet1 to sheet2 use vbscript.
can anyone help me?

我尝试了什么：

What I have tried:

Here is the code:

Set x6 = CreateObject("Excel.application")
 Set XlBook = x6.Workbooks.Open(".xlsx")
 x6.Visible = True
  Set Xlsheet = XlBook.Worksheets("Sheet2")
 Set Xlsheet1 = XlBook.Worksheets("sheet1")
 
 With Xlsheet
 'Dim lastrow
      Xlsheet1.Range("A:D").End(xlUp).Row  
      Xlsheet1.Range("A:D").Copy .Range(.Cells(1, j + 2), .Cells(6, j + 2))
 
 End With

推荐答案

您是否尝试过录制宏按钮？



1.转到任何单元格，

2 。打开记录宏

3.按CTRL + HOME

4.按CTRL +向下箭头

5.按SHIFT +空格键

6.按CTRL + C

7.单击表2

8.停止录制 - 现在为您生成代码Excel录制宏功能



转到VB代码生成，审查，优化，测试，发布......

Have you tried the "Record Macro" button?

1. Go to any cell,
2. Turn record macro on
3. Press CTRL+HOME
4. Press CTRL+DOWN-ARROW
5. Press SHIFT+SPACEBAR
6. Press CTRL+C
7. Click on "Sheet 2"
8. Stop recording - the code is now generated for you using Excel Record Macro function

Go to VB code generated, review, optimise, test, publish...

这篇关于Vbscript复制上一次使用excel文件中的行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！