根據另一列中的最后一行復制列中的值

Question

我有一個帶有四列設置的Excel工作表。

我試圖將B列中的單元格內容復制到C列，只要這4列的任何單元格中都有活動行。 通過這個，我的意思是包括值a11。

這應該由autorun宏在Excel模板中工作以填寫表單。 我在不同的網站上嘗試了很多方法，但沒有任何作用。 它們似乎都停在任何一行的第一個空白區域。

Sub Auto_Open()
    With Range("B1", Range("B1").End(xlDown))
        Sheets("Upload").Range("C" & Rows.Count).End(xlUp).Offset(0).Resize(.Count) = .Value
    End With
End Sub

我最后一個代碼的輸出（在這里發布）在第一個空單元格結束。

Answer 1

這應該工作：

此函數查找整張表中最后使用的行。

Sub Auto_Open()

Sheets("Upload").Range("C1:C" & LastRow(ActiveSheet)).Value = Sheets("Upload").Range("B1:B" & LastRow(ActiveSheet)).Value

End Sub


Function LastRow(Sh As Worksheet)
    On Error Resume Next
    LastRow = Sh.Cells.Find(What:="*", _
                            After:=Sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Row
    On Error GoTo 0
End Function