½Ð°Ý¦U¦ì¤j¯«¥[§Ö VBA §R°£¬°0ªºÀx¦s®æ¤½¦¡ªºµ{¦¡¼gªk
- ©«¤l
- 79
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-21
- ³Ì«áµn¿ý
- 2023-3-13
|
¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2019-12-20 21:10 ½s¿è
°²³] ¨C¦¸D¨º¦æ 0 ¼ÆȨº¦æªº¸ê®Æ ¨S¦³¤¤Â_ ¦Ó¥B¸ê®Æ³£¬O ¤@ª½¬O0 ¦Ó¥B¤£·| 0 0 0 0 ¤§«á¤£¬O 0 ¦A¤§«á¤S¬O 0
Sub test()
i = 2
Do Until Cells(i, 4) = ""
If Cells(i, 4) = "0" Then
Count = Count + 1
Else
Start = i
End If
i = i + 1
Loop
Range("d" & Start + 1 & ":" & "d" & Count + 10).Select
Selection.ClearContents
End Sub
³Ì«á´£¿ô¤@¤U ¥H¤W¥u¥i¥H¦b ¤@¦æ ³£¬O 0 ¤~¯à¥Î
¤ñ¦p¥H¤U³o¼Ë:
111
222
333
abc
123aft
2t1111
0
0
0
0
0
0
0
0
0
0
0
0
....
¦Ó¤£¬O³o¼Ë±¡ªp¤U¥Î
0
0
0
1
0
1
0
1
0
1
0
1
0
0
0
1
0
1 |
-
-
Â^¨ú.PNG
(86.44 KB)
|
|
|
|
|
|
- ©«¤l
- 79
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 148
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- EXCEL 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-21
- ³Ì«áµn¿ý
- 2023-3-13
|
¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2019-12-20 21:23 ½s¿è
- ¤èªk2:
- Sub test2()
- Columns("D:D").Select
- Selection.SpecialCells(xlCellTypeFormulas, 1).Select
- Selection.ClearContents
- End Sub
½Æ»s¥N½X ³o¥i¥H¹j¸ê®Æ ¦Ó¥B²³æ §Ö±¶ |
|
|
|
|
|
|