返回列表 上一主題 發帖

相同內容合併儲存格

相同內容合併儲存格

mmexport1709265400123.png
2024-3-1 11:57

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

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

回復 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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 2# Andy2483

這個應該是合併,加總那部分是不是沒有?

TOP

回復 2# Andy2483


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

TOP

回復 4# 198188

以下範例請參考
執行前:
20240301_1.jpg
2024-3-1 14:29


執行結果:
20240301_2.jpg
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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

回復 2# Andy2483


   
未命名.png
2024-3-1 15:01

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

TOP

回復 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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題