合并单元格具有相同值的列，不包括“0”[关闭]

Question

我见过很多关于合并的问题，但我无法（以我的入门级能力）回答这个特定问题，我将永远感谢您的专业知识和帮助！！！

我希望将具有相同值的不同单元格组合并为特定范围。

以下是输入和期望结果的示例。我已将文件格式化为不显示“0”和“否”，但实际描述（替换为 50% 折扣）很长，无法在单个单元格中查看，因此需要合并单元格以更好地显示信息。还有多家商店每周都会添加新商店，因此我想避免手动合并单元格。

输入

Month                   January February    March     April       May
Store 1 Campaign Period   no      yes       yes       yes         no
Campaign Details          0       50% off   50% off   50% off     0
Store 2 Campaign Period   no      no        no        yes        yes
Campaign Details          0       0         0    spring fling   spring fling

期望的输出

Month                   January February    March   April     May
Store 1 Campaign Period   no     yes         yes    yes       no
Campaign Details          0            50% off                0
Store 2 Campaign Period   no     no          no     yes       yes
Campaign Details          0      0            0     spring fling    

Answer 1

这应该可以帮助您入门。假设数据位于“Sheet1”中。它将合并“A”列中标有“广告系列详细信息”的行中的单元格。合并在具有相同值的相邻行单元格上执行 - 至少两个具有相同值的相邻单元格将被合并。

Option Explicit

Sub MergeSameDetails()
  Dim sht As Worksheet
  Set sht = Worksheets("Sheet1")

  Application.DisplayAlerts = False

  With sht
    Dim lastrow As Integer, i As Integer, j As Integer, cnt As Integer
    Dim val As Variant
    lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = 1 To lastrow
      If .Cells(i, "A").Value = "Campaign Details" Then
        cnt = 1
        val = .Cells(i, 2).Value
        For j = 3 To 7
          If val = .Cells(i, j).Value Then
            cnt = cnt + 1
          Else
            If cnt >= 2 And val <> "0" Then
              .Range(Cells(i, j - cnt), Cells(i, j - 1)).Merge
              .Cells(i, j - cnt).HorizontalAlignment = xlCenter
            End If
            cnt = 1
            val = .Cells(i, j).Value
          End If
        Next
      End If
    Next
  End With

  Application.DisplayAlerts = True

 End Sub