如何找到最后一行並將公式粘貼到列的最后一個單元格

Question

需要幫助找到列中的最后一行並將 H2 公式粘貼到最后一列，直到數據出現在最后一行。 使用下面的代碼但沒有成功。 代碼也會自動在 H 列中添加列名Mid 值。 例如，如果單元格 H2 包含公式 mid(G2,20,2) 將給出 P2 值。 並且該公式應復制到該列的最后使用的行並粘貼該公式。

請根據您的方便更改源文件的目的地。

如果你能幫忙的話，我會很飽的。

謝謝你，阿米特·辛格

代碼剪斷：-

Sub Timecalculation()

Dim wb As Workbook
Dim wks As Worksheet
Dim objList As ListObject
Dim LastRow As Long
Dim sht As Worksheet
    
Set wb = Workbooks.Open("C:\Users\611892636\OneDrive - BT Plc\Desktop\Nestle JML\Mansi Work\Test\SourceData.xlsx")
wb.Sheets("Data").Activate
For Each wks In ActiveWorkbook.Worksheets
    For Each objList In wks.ListObjects
        objList.Unlist
     Next objList
Next wks
Range("H1").Select

'adding column for Mid Value
Set sht = ActiveSheet
Columns("H:H").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("H1").Value = "Mid Value"
ActiveSheet.Range("H2").Select
ActiveCell.FormulaR1C1 = "=Mid(RC[-1],20,2)"
Selection.Copy
Range("H3").Select
LastRow = Range("H" & Rows.Count).End(xlUp).Row
Range("H2:H" & LastRow).Formula = "=&H2"
Range("I1").Select

ActiveSheet.AutoFilterMode = False

'Adding column for time calculate
Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("I1").Value = "Time Cal"
Range("J1").Select

'Adding column for time in Minutes
Columns("J:J").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("J1").Value = "Time In Minutes"
Application.DisplayAlerts = False


End Sub

Answer 1

通常你可以使用這段代碼找到最后一個：

Range("H2").End(xlDown)

祝你好運

在 Amit 發表評論后編輯

顯然，這似乎是解決方案：

Range("H2:H" & Cells(Rows.Count, 1).End(xlUp).Row).Formula = "=Mid(RC[-1],20,2)"