ä¸è½çvbaå¯ä»¥å®ç°ã
ä¾å¦å§åå¨æ¯ä¸ªå·¥ä½è¡¨çAåã读ååæ¾å¨ç¹å®å·¥ä½è¡¨ï¼å设ï¼å·¥ä½è¡¨å=âç»æ表âï¼éè¦æ¥æ¾çå§å=âå¼ ä¸âï¼
第ä¸æ¥ï¼è¿å
¥visual basicãæå
¥æ¨¡åã
第äºæ¥ï¼åå
¥ä»£ç ã代ç å¦ä¸ï¼ï¼æ³¨ï¼æªè¿è¡æµè¯ï¼
SUB TEST()
CONST CZXM="å¼ ä¸"
DIM JGARR(1 TO 100ï¼1 TO 2) '1-å·¥ä½è¡¨å 2-è¡å·
DIM ZZ AS INTEGER 'è®°å½æ¥æ¾å°ç个æ°
FOR EACH MYS IN ACTIVEWORKBOOK.SHEETS
FOR I=1 TO MYS.CELLS(1000000ï¼1).END(XLUP).ROW
IF MYS.CELLS(I,1).TEXT=czxm then
zz=zz+1
jgarr(zz,1)=mys.name
jgarr(zz,2)=i
endif
NEXT I
NEXT MYS
'è¾åºç»æ
sheets(âç»æâï¼.activate
range("a1:b1000").clear
cells(1,1).resize(zz,2)=jgarr
END SUB
å¯ä»¥èªå·±è¯ä¸ä¸å¦ã
温馨提示:内容为网友见解,仅供参考