VBA
With xSheet.Range(myRange)
' select range
Set c = .Find("My Key Word") ', LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
do
lineno2 = c.Row() ' get row number
.... ' process business logic
'Find next line
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop While c.Address <> firstAddress
End if
End With
2:鍐欏叆 3錛氬敖閲忎嬌鐢╒BA鍘熸湁鐨勫睘鎬с佹柟娉曞拰WORKSHEET鍑芥暟 姹傚鉤鍧囧伐璧勭殑渚嬪瓙錛?/p> for each c in worksheet(1).range(“a1:a100”) totalvalue=totalvalue+c.value next averagevalue=totalvalue/worksheet(1).range(“a1:a1000”).rows.count 鑰屼笅闈㈢殑浠ｇ爜紼嬪簭姣斾笂闈㈢殑渚嬪瓙蹇緱澶?/p> averagevalue=application.worksheetfunction.average(worksheets(1).range(“a1:a1000”)) 1銆佷嬌鐢╓ith璇彞 渚嬶細workbooks(1).sheets(1).range(“a1:a1000”).font.name=”pay” workbooks(1).sheets(1).range(“a1:a1000”).font.fontstyle=”bold” 鑰屼笅闈㈢殑浠ｇ爜紼嬪簭姣斾笂闈㈢殑渚嬪瓙蹇緱澶?/p> With workbooks(1).sheets(1).range(“a1:a1000”).font .name=”pay” .fontstyle=”bold” end with 2銆佷嬌鐢ㄥ璞″彉閲忋?/p> 濡傛灉浣犲彂鐜頒竴涓璞″紩鐢ㄨ澶氭浣跨敤錛屽垯浣犲彲浠ュ皢姝ゅ璞＄敤SET璁劇疆涓哄璞″彉閲忥紝浠ュ噺灝戝瀵硅薄鐨勮闂傚錛?/p> workbooks(1).sheets(1).range(“a1”).value=100 workbooks(1).sheets(1).range(“a2”).value=200 鑰屼笅闈㈢殑浠ｇ爜紼嬪簭姣斾笂闈㈢殑渚嬪瓙蹇緱澶?/p> Set mysheet=workbooks(1).sheets(1) Mysheet. range(“a1”).value=100 Mysheet.range(“a2”).value=200 3銆佸湪寰幆涓灝介噺鍑忓皯瀵硅薄鐨勮闂?/p> For k=1 to 1000 Sheets(“sheet1”).select Cells(k,1).value=cells(1,1).value Next k Set thevalue =cells(1,1).value Sheets(“sheet1”).select For k=1 to 1000 Cells(k,1).value=thevalue Next k 濡傛灉浣犳槸閫氳繃褰曞埗瀹忓涔燰BA鐨勶紝鍒欎綘鐨勭▼寮忓簭閲屼竴涓鍏呮弧浜嗗璞＄殑嬋媧誨拰閫夋嫨錛屽WORKSHEETS錛圶XX錛?ACTIVATE銆丼heets錛圶XX錛?select絳?浣嗕簨瀹炰笂澶у鏁扮殑鎯呭喌涓嬭繖浜涙搷浣滄槸涓嶅繀欏葷殑.渚嬪: sheets(“sheet3”).select range(“a1”).value=100 range(“a2”).value=200 鍙敼涓?/p> with sheets(“sheet3”) .range(“a1”).value=100 .range(“a2”).value=200 end with 濡傛灉鍓嶉潰涓夋潯鍋氱殑姣旇緝宸紝鍒欏叧闂睆騫曟洿鏂版槸鎻愰珮VBA紼嬪簭榪愯閫熷害鐨勬渶鏈夋晥鏂規硶錛岀緝鐭繍琛屾椂闂?/3宸﹀彸銆傚叧闂睆騫曟洿鏂扮殑鏂規硶錛?/p> Application.screenupdate=false 璇蜂笉瑕佸繕璁癡BA紼嬪簭榪愯緇撴潫鏃跺啀灝嗚鍊艱鍥炴潵 Application.screenupdate=true
4錛氬敖閲忓噺灝戜嬌鐢ㄥ璞″紩鐢?灝ゅ叾鍦ㄥ驚鐜腑
5錛氬噺灝戝璞＄殑嬋媧誨拰閫夋嫨
6錛氬叧闂睆騫曟洿鏂?
]]>