求救.我用錄製巨集.把sheet1 的A欄到F欄最底下248筆資料 copy放到Sheet2 , 但由於資料數量每次都會變.可能變多.也可能變少.導致每次都抓不到我要的最底下248筆資料.有大大可以幫忙嗎?

Attachment image

2 個解答

評分
  • John
    Lv 7
    2 年前
    最佳解答

    Sub Macro1()

    Sheets("Sheet1").Select

    SelectDataAndCopy (248)

    Sheets("Sheet2").Select

    Range("A4").Select

    ActiveSheet.Paste

    End Sub

    Public Sub SelectDataAndCopy(ByVal numberOfRow As Integer)

    Dim sht As Worksheet

    Dim startAtRow As Integer

    Dim endAtRow As Integer

    Sheets("Sheet1").Select

    Set sht = ActiveSheet

    endAtRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

    startAtRow = endAtRow - numberOfRow + 1

    Range("a" & startAtRow & ":f" & endAtRow).Select

    Selection.Copy

    End Sub

  • 2 年前

    With Sheets("Sheet1")

    Cx = .[A1048576].End(3).Row

    Cxa = Cx - 247

    .Range("A" & Cxa & ":F" & Cx).Copy Sheets("Sheet2").Range("A4")

    End With

還有問題?馬上發問,尋求解答。