½Ð°Ý¦p¦ó§ï¼g ASC("A") ¥u¯àŪA-Z¦@26Ó¦r¥À..
- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 52
- ÂI¦W
- 32
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ·s¥_¥«
- µù¥U®É¶¡
- 2011-4-27
- ³Ì«áµn¿ý
- 2024-12-1
|
½Ð°Ý¦p¦ó§ï¼g ASC("A") ¥u¯àŪA-Z¦@26Ó¦r¥À..
For j = 0 To 100
j2 = Asc("A") + j
If Range(Chr(j2) & "8").Value = "" Then Exit For
Next
j2 = j2 - 1
½Ð°Ý¦p¦ó§ï¼g ASC("A") ¥u¯àŪA-Z¦@26Ó¦r¥À?§ï¥Î§Oªº¨ç¼Æ? |
|
|
|
|
|
|
- ©«¤l
- 2
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 1
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 10
- ³nÅ骩¥»
- vb6/.net
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2020-3-12
- ³Ì«áµn¿ý
- 2020-3-12
|
¦^´_ 1# srd0k9
§ârange换¦¨cells(¦æ,¦C).value=""试试¬Ý? |
|
|
|
|
|
|