将 B 列的行与已合并的行 A 的计数合并

Question

我想将一行中的单元格（属于 B 列）与已合并的不同单元格（属于 A 列）的计数合并。我该如何开始编码？

这是我想要的截图

Answer 1

1. 合并电子表格中的单元格意味着获取两个或更多单元格并 用它们构建一个单元格。当你合并两个或更多 相邻的水平或垂直单元格，单元格变大 跨多列或多行显示的单元格。当你 合并多个单元格，只有一个单元格的内容（左上角 单元格用于从左到右的语言，或右上角的单元格用于 从右到左的语言）出现在合并的单元格中。的内容 您合并的其他单元格将被删除。更多详情请 浏览这篇 MSDN 文章Merge and unmerge cells

用于合并单元格的简单 VBA 代码

Sub merg_exp_1()
    ActiveSheet.Range("A1:C10").Merge
End Sub

显示了运行程序之前和之后的示例数据。

1. 现在让我们看看，如果我们合并一行会发生什么。示例代码 锻炼虽然一般只针对一种情况进行测试，并且 如下：

   Sub Merge_Rows()
       Dim rng As Range
       Dim rrow As Range
       Dim rCL As Range
       Dim out As String
       Dim dlmt As String
       dlmt = ","
       Set rng = ActiveSheet.Range("A1:C5")
       For Each rrow In rng.Rows
       out = ""
       For Each rCL In rrow.Cells
           If rCL.Value <> "" Then
               out = out & rCL.Value & dlmt
           End If
       Next rCL
       Application.DisplayAlerts = False
       rrow.Merge
       Application.DisplayAlerts = True
       If Len(rrow.Cells(1).Value) > 0 Then
           rrow.Cells(1).Value = Left(out, Len(out) - 1)
       End If
       Next rrow
   End Sub
   

显示了运行程序之前和之后的示例数据。你可以看到这不会达到你的目标。

1. 接下来我们可以尝试按列合并。这里我们也在尝试 对于一列，即 B 列以查看效果。示例代码为 跟随。

   Sub Merge_col_exp()
   
       Dim cnum As Integer
       Dim rng As Range
       Dim str As String
   
       For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
       cnum = Cells(i, 1).MergeArea.Count
       Set rng = Range(Cells(i, 2), Cells(i - cnum + 1, 2)) ' only to demonstrate working in 2nd column
   
       For Each cl In rng
       If Not IsEmpty(cl) Then str = str + "," + cl
       Next
       If str <> "" Then str = Right(str, Len(str) - 1)
   
       Application.DisplayAlerts = False
       rng.Merge
       rng = str
       Application.DisplayAlerts = True
   
       str = ""
       i = i - cnum + 1
       Next i
   
   End Sub
   

显示了运行程序之前和之后的示例数据。您可以看到这更接近您的要求。您可以通过在 Actively used 范围中查找 Last Column 来扩展该程序的功能。将程序功能扩展到最后一列。