標題: 相同內容合併儲存格 [打印本頁]

---

作者: 198188    時間: 2024-3-1 12:01     標題: 相同內容合併儲存格

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

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

---

作者: Andy2483    時間: 2024-3-1 13:09

回復 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    時間: 2024-3-1 13:39

回復 2# Andy2483

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

---

作者: 198188    時間: 2024-3-1 14:13

回復 2# Andy2483


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

---

作者: Andy2483    時間: 2024-3-1 14:29

回復 4# 198188

以下範例請參考
執行前:
[attach]37527[/attach]

執行結果:
[attach]37528[/attach]

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    時間: 2024-3-1 15:04

回復 2# Andy2483


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

---

作者: Andy2483    時間: 2024-3-1 15:54

回復 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)