返回列表 上一主題 發帖

[發問] 如何將資料貼在選取連續資料欄下方的空白儲存格?

With Sheets("Sheet1")
     .Range("A2", .[B65536].End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
End With
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

這是 Range.Copy 方法
可以在EXCEL HELP裡面看到說明,或上網查一下就有

不使用 WITH 如下
  1. Sheets("Sheet1").Range("A2", Sheets("Sheet1").Range("B65536").End(xlUp)).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

或是這樣
  1. xRow = Sheets("Sheet1").Range("B65536").End(xlUp).Row
  2. Sheets("Sheet1").Range("A2:B" & xRow).Copy Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
複製代碼
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大,小人氣大。
返回列表 上一主題