ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

mmexport1709265400123.png
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¹Ï

¦^´_ 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
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483

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

TOP

¦^´_ 2# Andy2483


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

TOP

¦^´_ 4# 198188

¥H¤U½d¨Ò½Ð°Ñ¦Ò
°õ¦æ«e:
20240301_1.jpg
2024-3-1 14:29


°õ¦æµ²ªG:
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
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483


   
¥¼©R¦W.png
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

TOP

¦^´_ 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
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD