¬Û¦P¤º®e¦X¨ÖÀx¦s®æ

198188

¤U¸ü (21.98 KB)

2024-3-1 11:57

¦pªGcolumn H¦³¼Æ¦r¡A¨º»ò¦b¨º­ÓÀx¦s®æ¾Þ§@¡A±NColumn A ¬Û¦PªºColumn F ¼Æ¶q¥[Á`¡C¦p¤W¹Ï

±NColumn A ¬Û¦PªºÀx¦s®æ¦X¨Ö¡C ¦p¤W¹Ï

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

198188

¦^´_ 2# Andy2483

³o­ÓÀ³¸Ó¬O¦X¨Ö¡A¥[Á`¨º³¡¤À¬O¤£¬O¨S¦³¡H

198188

¦^´_ 2# Andy2483


    ¦pªGcolumn H¦³¼Æ¦r¡A¨º»ò¦b¨º­ÓÀx¦s®æ¾Þ§@¡A±NColumn A ¬Û¦PªºColumn F ¼Æ¶q¥[Á`¡C
³o­ÓÀ³¸Ó«ç¼Ë¾Þ§@¡H

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

198188

¦^´_ 2# Andy2483


   

¤U¸ü (35.96 KB)

2024-3-1 15:01

¦pªG¤Ï¹L¨Ó¡A·Q§âÄæA ­ì¥»¦X¦}ªºÀx¦s®æ¡A¨ú®ø¦X¦}¡A¦}±N¨C®æ¶ñ¥R¤W¬Û¦Pªº¸ê®Æ¡A¦p¤W¹Ï
¥ªÃ䪺¸ê®Æ¡AÂà爲¥kÃ䪺µ²ªG

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