將特定單元格從sheet2sheet復制到下一個空白行

Question

我的問題是我希望能夠將特定的單元格值從不同的源工作表（即PRICES1和PRICES2等）復制到另一個工作表的第一個空行（總計）。 到目前為止，如果例如PRICES1運行並在R列中留有空白單元格，則到目前為止的代碼會執行作業，然后當PRICES2觸發時，所有單元格值將占據下一個可用行，而值“ B10”將占據下一行。 R列中的上一行。

所以，我的問題是這樣的：即使前一行中有一些空白單元格，也可以強制所有單元格值占據同一行嗎？ 例如，是否可以強制其余值與B4和C4值占據同一行（當然，在適當的單元格中）？

Sub PRICES1_click()
ActiveSheet.Calculate
ActiveSheet.Columns("F:F").AutoFit

If Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = "" Then

    If Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = "" Then
    Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = Sheets("PRICES1").Range("B4").Value
    Sheets("TOTALS").Range("N" & Rows.Count).End(3)(2).Value = Sheets("PRICES1").Range("C4").Value
    Sheets("TOTALS").Range("O" & Rows.Count).End(3)(2).Value = Sheets("PRICES1").Range("B6").Value
    Sheets("TOTALS").Range("S" & Rows.Count).End(3)(2).Value = Sheets("PRICES1").Range("L46").Value
End If

End If

Worksheets("TOTALS").Calculate
End Sub


Sub PRICES2_click()
ActiveSheet.Calculate
ActiveSheet.Columns("F:F").AutoFit

If Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = "" Then

    If Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = "" Then
    Sheets("TOTALS").Range("M" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("B4").Value
    Sheets("TOTALS").Range("N" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("C4").Value
    Sheets("TOTALS").Range("O" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("B6").Value
    Sheets("TOTALS").Range("R" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("B10").Value
    Sheets("TOTALS").Range("S" & Rows.Count).End(3)(2).Value = Sheets("PRICES2").Range("L46").Value
End If
End If


Worksheets("TOTALS").Calculate
End Sub

您可以在以下位置找到excel文件： sendspace附加的excel文件

Answer 1

您應該將目標行設置為變量，並使用它。 選擇一個您將永遠填充的列。

Dim rowNo As Long

rowNo = Sheets("TOTALS").Range("M" & Rows.Count).End(XlUp).Row + 1


Sheets("TOTALS").Range("M" & rowNo).Value = Sheets("PRICES2").Range("B4").Value
Sheets("TOTALS").Range("N" & rowNo).Value = Sheets("PRICES2").Range("C4").Value
Sheets("TOTALS").Range("O" & rowNo).Value = Sheets("PRICES2").Range("B6").Value

等等