相同內容合併儲存格

198188

下載 (21.98 KB)

2024-3-1 11:57

如果column H有數字，那麼在那個儲存格操作，將Column A 相同的Column F 數量加總。如上圖

將Column A 相同的儲存格合併。 如上圖

Andy2483

回復 1# 198188


    謝謝前輩發表此主題
Option Explicit
Sub TEST()
Application.DisplayAlerts = False
Dim i&, xR As Range, N&
Set xR = [A2]
For i = 2 To [A65536].End(xlUp).Row + 1
   If Cells(i, 1) <> xR Then
      If N > 1 Then xR.Resize(N).Merge
      Set xR = Cells(i, 1)
      N = 0
   End If
   N = N + 1
Next
End Sub

198188

回復 2# Andy2483

這個應該是合併，加總那部分是不是沒有？

198188

回復 2# Andy2483


    如果column H有數字，那麼在那個儲存格操作，將Column A 相同的Column F 數量加總。
這個應該怎樣操作？

Andy2483

回復 4# 198188

以下範例請參考
執行前:

下載 (68.46 KB)

2024-3-1 14:29

執行結果:

下載 (65.24 KB)

2024-3-1 14:29

Option Explicit
Sub TEST()
Application.DisplayAlerts = False
Dim i&, xR As Range, N&
Set xR = [A2]
For i = 2 To [A65536].End(xlUp).Row + 1
   If Cells(i, 1) <> xR Then
      If N > 1 Then xR.Resize(N).Merge
      xR(N, 3) = "=SUM(" & xR(1, 2).Address & ":" & xR(N, 2).Address & ")"
      Set xR = Cells(i, 1)
      N = 0
   End If
   N = N + 1
Next
End Sub

198188

回復 2# Andy2483


   

下載 (35.96 KB)

2024-3-1 15:01

如果反過來，想把欄A 原本合并的儲存格，取消合并，并將每格填充上相同的資料，如上圖
左邊的資料，轉爲右邊的結果

Andy2483

回復 6# 198188

謝謝前輩回復
以下學習方案請前輩參考

Option Explicit
Sub TEST_1()
Dim i&
For i = 2 To Intersect(ActiveSheet.UsedRange, [A:A]).Rows.Count
   With Cells(i, 1).MergeArea
      .UnMerge
      .Value = Cells(i, 1)
      i = i + .Count - 1
   End With
Next
End Sub