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

peter95

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

¤U¸ü (123.2 KB)

2023-9-5 23:24

Book1.rar (8.13 KB)

¤U¸ü¦¸¼Æ: 7

2023-9-5 23:27

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

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

¬PªÅÉ@¦ÐÁl

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

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

peter95

·PÁÂÀ°¦£¡A§Ú¨Ó¸Õ¬Ý¬Ý¡AÁÂÁ§A

hcm19522

https://hcm19522.blogspot.com/2023/09/0-11771.html

Andy2483

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

°õ¦æ«e:

¤U¸ü (78.84 KB)

2023-11-9 11:32

°õ¦æµ²ªG:

¤U¸ü (79.98 KB)

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