0

我见过很多人谈论这个问题，但更多是从将合并的单元格复制到单个单元格的角度来看。我有一个从工作簿获取范围的过程，打开第二个工作簿并尝试将其粘贴到指定行的下一个空白单元格中；

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 将数据放入合并的单元格，或者我是否需要执行单独的过程来检查合并的单元格，取消合并它们，然后在数据复制后合并它们。

如果是这样，我是否能够以类似于检查下一个空单元格的方式执行此操作，然后检查它是否已合并，然后执行取消合并并再次合并。

4

1 回答 1

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
于 2012-10-24T17:45:03.637 回答