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

[µo°Ý] ­pºâ¤u§@ªí(¶¡¹j)

[µo°Ý] ­pºâ¤u§@ªí(¶¡¹j)

½Ðª©¤W¤j¤jÀ°¦£,¨D¦p¦ó­pºâ¶¡¹j¦¸¼Æ
ªþ¤W¹ÏÀÉ©M­ì©lEXCELÀÉ®×
ÁÂÁ¤j®aÀ°¦£

¨D¶¡¹j¦¸¼Æ.jpg
2023-9-5 23:24

Book1.rar (8.13 KB)

0               
1        ¶¡¹j1¦¸¥X²{¤j©ó0       
0               
0               
1        ¶¡¹j2¦¸¥X²{¤j©ó0       
1        ¶¡¹j0¦¸¥X²{¤j©ó0       
0               
0               
0               
1        ¶¡¹j3¦¸¥X²{¤j©ó0       
1        ¶¡¹j0¦¸¥X²{¤j©ó0       
0               
0               
0               
1        ¶¡¹j3¦¸¥X²{¤j©ó0       
0               
1        ¶¡¹j0¦¸¥X²{¤j©ó0       
1        ¶¡¹j0¦¸¥X²{¤j©ó0       
0               
0               
1        ¶¡¹j2¦¸¥X²{¤j©ó0       
0               
0               
0               
0               
1        ¶¡¹j4¦¸¥X²{¤j©ó0
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

¥»©«³Ì«á¥Ñ ¬PªÅÉ@¦ÐÁl ©ó 2023-9-6 10:27 ½s¿è
  1. Sub text()
  2.     Range("A1").Select
  3.     Dim x As Integer
  4.     Dim y As Integer
  5.    
  6.     While ActiveCell.Value <> ""
  7.    
  8.     x = ActiveCell.Value
  9.    
  10.    
  11.     If x = 0 Then
  12.     y = y + 1
  13.     ActiveCell.Offset(1, 0).Range("A1").Select
  14.    
  15.     Else
  16.     ActiveCell.Offset(0, 1).Range("A1").Select
  17.     ActiveCell.Value = y
  18.     ActiveCell.Offset(1, -1).Range("A1").Select
  19.     y = 0
  20.       
  21.     End If
  22.     Wend
  23. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# ¬PªÅÉ@¦ÐÁl

«á¾Ç­è¾Ç²ßVBA
¤W­z¥N½X¬O¥Ñ¥Ø«e¤w¾ÇªºÆ[©À¶i¦æ¼¶¼g
­Y¼g±o¤£¦n½Ð¨£½Ì¡A·PÁ¡I

TOP

¥»©«³Ì«á¥Ñ peter95 ©ó 2023-9-6 16:02 ½s¿è

·PÁÂÀ°¦£¡A§Ú¨Ó¸Õ¬Ý¬Ý¡AÁÂÁ§A
¾Ç²ß ¾Ç²ß ¤@ª½¾Ç²ß

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

°õ¦æ«e:
20231109_1.jpg
2023-11-9 11:32


°õ¦æµ²ªG:
20231109_2.jpg
2023-11-9 11:33



Option Explicit
Sub TEST()
Dim Brr, i&, N&
Brr = Range([A1], [A65536].End(3))
For i = 1 To UBound(Brr)
   If Val(Brr(i, 1)) > 0 Then Brr(i, 1) = N: N = 0 Else Brr(i, 1) = "": N = N + 1
Next
[E1].Resize(UBound(Brr)) = Brr
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD