複製範圍搜索連續的下一個空單元格，但跳過合併單元格

Question

我見過很多人在討論這個問題，但更多的是從將複合單元格複製到單個單元格的角度。我有一個從工作簿獲取範圍的過程，打開第二個工作簿並嘗試將其粘貼到指定行中的下一個空白單元格中;

Public Sub BankBalances() 
Dim fname As String 
Dim fname2 As String 
Dim mt As String, yr As String 
'get the selected month 
mt = MonthBox.Value 
'get the selected year 
yr = YearBox.Value 
'set the file path to the selected year, month and the saving format 
fname = yr & mt & "DB" & ".xlsx" 
'set the file path to the selected year, month to open the trial balance sheet 
fname2 = yr & mt & "TB" & ".xlsx" 
'get the ranges 
Dim rng1 As Range 
Dim rng2 As Range 
Set rng1 = Workbooks(fname2).Worksheets("excel").Range("I100") 
'check for the next empty cell in row 55 
Set rng2 = Workbooks(fname).Worksheets("UK monthly dashboard").Cells(55, Columns.Count).End(xlToLeft).Offset(0, 1) 
'set the new range to hold the data from the original range 
rng2.Value = rng1.Value 
'set the result to format according to the other information in the workbook 
rng2.Value = Round(rng1.Value/1000, 0) 

End Sub 

上面的代碼會將數據粘貼到未合併行中的下一個空白單元格中。我需要它能夠粘貼到合併的單元格中。

我想知道的是，如果有一種方法使用VBA將數據放入合併的單元格中，或者如果我需要執行單獨的過程來檢查合併的單元格，請取消合併，然後合併數據已經複製過。

如果是這樣，我能否以類似的方式來檢查下一個空單元格，然後檢查它是否合併，然後執行拆分並再次合併。

Answer 1

如果我明白你在說什麼，那麼是的，但如果我可以改變你的例子，我想把A1的內容放入D1：D2合併。所以它的一個細胞進入兩個值合併在一起 - JamesDev 4小時前

這是你正在嘗試？

Sub Sample() 
    Dim Rng1 As Range 
    Dim Rng2 As Range 
    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     Set Rng1 = .Range("A1") 
     Set Rng2 = .Range("D1:D2") 

     '~~> Check if cells are merged 
     If Rng2.MergeCells Then 
      '~~> If merged then write to first cell 
      Rng2.Cells(1, 1).Value = Rng1.Value 
     Else 
      Rng2.Value = Rng1.Value 
     End If 
    End With 
End Sub