Andy2483

¦^´_ 1# 198188


    ÁÂÁ«e½úµoªí¦¹¥DÃD
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

Andy2483

¦^´_ 4# 198188

¥H¤U½d¨Ò½Ð°Ñ¦Ò
°õ¦æ«e:

¤U¸ü (68.46 KB)

2024-3-1 14:29

°õ¦æµ²ªG:

¤U¸ü (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

Andy2483

¦^´_ 6# 198188

ÁÂÁ«e½ú¦^´_
¥H¤U¾Ç²ß¤è®×½Ð«e½ú°Ñ¦Ò

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