求助vba代码注释 VBA中怎么把大段代码直接改为注释内容？
VBA\u4ee3\u7801\u6c42\u6ce8\u91caDim RS As Integer ''''''\u5b9a\u4e49 rs,cs,t,i,j,c
Dim CS As Integer
Dim T As Integer
Dim i As Integer
Dim j As Integer
Dim c As Integer
T = 0 '''''T\u8d4b\u521d\u503c0
c = 2 '''''C\u8d4b\u521d\u503c2
Range("F:F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '''''''''''\u5220\u9664F\u5217\u7684\u7a7a\u5355\u5143\u683c\uff0c\uff0c\u5176\u5b9e\u6211\u5bf9\u8fd9\u6bb5\u4ee3\u7801\u4e0d\u592a\u719f\u6089\u3002\u5927\u81f4\u610f\u601d
'delete blank row from sheet
RS = ActiveWorkbook.Worksheets(2).Range("A65536").End(xlUp).Row ''''''rs=\u88682\u7684\u7b2cA\u5217\u7684\u6700\u540e\u4e00\u4e2a\u975e\u7a7a\u5355\u5143\u683c
For i = 2 To RS ''''''\u5b9a\u4e49\u5faa\u73af\u53d8\u91cf\uff0ci=2 \u5230 rs \u4e00\u76f4\u6267\u884cfor next \u4e2d\u95f4\u7684\u4ee3\u7801\u76f4\u5230i>rs
c = T + c
T = Range("F" & c) ''''''t=\u5355\u5143\u683cF&C\uff0c\u5176\u4e2dC\u4e3a\u53d8\u91cf,\u5373F2 \u5230F&RS
If T 1 Or 0 Then
For j = 2 To T ''''''\u5b9a\u4e49\u5faa\u73af\u53d8\u91cf\uff0cj=2 \u5230t \u4e00\u76f4\u6267\u884cfor next \u4e2d\u95f4\u7684\u4ee3\u7801\u76f4\u5230i>t
Rows(c + j - 2).Select ''''\u9009\u4e2d\uff0cc+j-2\u884c
Selection.Copy ''''\u9009\u4e2d\u90e8\u5206\u590d\u5236
Rows(c + j - 1).Select ''''\u9009\u4e2d\uff0cc+j-1\u884c
Selection.Insert Shift:=xlDown '''''\u5728\u9009\u4e2d\u884c\u63d2\u5165\u4e00\u5217\uff0c\u4ee5\u4e0b\u5355\u5143\u683c\u4e0b\u79fb
Range("g" & c + j - 1) = Range("g" & c + j - 2) + 1 '''''\u7ed9\u5355\u5143\u683cg&c+j-1\u8d4b\u503c\u7b49\u4e8e\u5355\u5143\u683cg&c+j-2\u7684\u503c+1
Next j '''''''\u5faa\u73af\u6267\u884cj
End If ''''''''\u9000\u51fa\u6761\u4ef6
Next i '''''''\u5faa\u73af\u6267\u884ci
'main program for tear down
CS = ActiveWorkbook.Worksheets(2).Range("A65536").End(xlUp).Row '''cs\u7b49\u4e8e\u6d3b\u52a8\u5de5\u4f5c\u8584\uff0c\u5373\u5f53\u524d\u5de5\u4f5c\u8584\u7684\u88682\u7684A\u5217\u6700\u540e\u4e00\u4e2a\u975e\u7a7a\u5355\u5143\u683c
For k = 2 To CS ''''''\u5b9a\u4e49\u5faa\u73af\u53d8\u91cf\uff0ck=2 \u5230cs
Range("F" & k) = 1 ''''''\u5355\u5143\u683cf&k\u7684\u503c\u4e3a1
Next k '''''''\u5faa\u73af\u6267\u884cK
1\u3001\u9996\u5148\u6253\u5f00excel\u8f6f\u4ef6\u3002
2\u3001\u6253\u5f00vba\u7f16\u7a0b\u754c\u9762\u3002
3\u3001\u5b9a\u4e49\u4e00\u4e2a\u51fd\u6570\u3002
4\u3001\u8981\u4f7f\u7528\u3010rem+\u7a7a\u683c+\u6ce8\u91ca\u5185\u5bb9\u3011\u3002
5\u3001\u4f7f\u7528\u82f1\u6587\u7684\u4e0a\u5355\u5f15\u53f7\u3010\u6ce8\u91ca\u5185\u5bb9\u3011\u3002
6\u3001\u4f7f\u7528\u3010rem+\u7a7a\u683c+\u6ce8\u91ca\u5185\u5bb9\u3011\u3002
7\u3001\u5bf9\u4e8e\u7b80\u5355\u7684\u53d8\u91cf\u7684\u8d4b\u503c\uff0c\u5c31\u662f\u4f7f\u7528\u3010=\u3011\u3002
8\u3001\u6700\u540e\u5c31\u662f\u5bf9\u4e8e\u5e45\u503c\u5bf9\u8c61\u8fdb\u884c\u7684\u8d4b\u503c\u3002
vba代码注释可以使用：
1、英文单引号，
2、rem
见截图简单演示
楼主如果是针对具体代码，需要解释，需要提供相关内容，然后才能处理
绛旓細1.閫夋嫨闇瑕佽浆鎹负娉ㄩ噴鐨勬墍鏈浠ｇ爜銆2.鍦ㄢ滅紪杈戔濆伐鍏锋爮涓崟鍑烩滆缃敞閲婂潡鈥濆懡浠ゃ傚鏋溾滅紪杈戔濆伐鍏锋爮娌℃湁鍑虹幇锛屽垯鍗曞嚮鑿滃崟鈥滆鍥锯啋宸ュ叿鏍忊啋缂栬緫鈥濄3.濡傛灉瑕佸彇娑堜唬鐮佸潡鐨勬敞閲婏紝鍏堥夋嫨浠ｇ爜锛屽啀鍗曞嚮鈥滅紪杈戔濆伐鍏锋爮涓殑鈥滆В闄ゆ敞閲婂潡鈥濆懡浠ゅ嵆鍙
绛旓細1锛娉ㄩ噴璇彞鏄敤鏉ヨ鏄庣▼搴忎腑鏌愪簺璇彞鐨勫姛鑳藉拰浣滅敤锛VBA涓湁涓ょ鏂规硶鏍囪瘑涓烘敞閲婅鍙ャ傚崟寮曞彿 鈥 ;濡傦細鈥欏畾涔夊叏灞鍙橀噺锛涘彲浠ヤ綅浜庡埆鐨勮鍙ヤ箣灏撅紝涔熷彲鍗曠嫭涓琛 Rem ;濡傦細Rem瀹氫箟鍏ㄥ眬鍙橀噺锛涘彧鑳藉崟鐙竴琛 2锛夎祴鍊艰鍙ユ槸杩涜瀵瑰彉閲忔垨瀵硅薄灞炴ц祴鍊肩殑璇彞锛岄噰鐢ㄨ祴鍊煎彿 =锛屽X=123锛欶orm1.caption=鈥濇垜鐨勭獥鍙ｂ...
绛旓細Option Explicit '寮哄埗鏄剧ず澹版槑妯″潡涓殑鎵鏈夊彉閲忥紝闃叉杈撳叆閿欒瀵艰嚧浠ｇ爜杩愯寮傚父Private intWindowState As Long '澹版槑闀挎暣褰㈠叏灞鍙橀噺 intWindowStatePrivate Sub cmdApply_Click() '澹版槑鐐瑰嚮 搴旂敤 鎸夐挳鍚庢墽琛岀殑杩囩▼ Select Case optSub.Value '鏍规嵁 optSub 鎺т欢鐨勫奸夋嫨鎵ц Case False '鑻ユ湭閫変腑锛屽垯...
绛旓細鍦ㄨ鍙ョ殑寮澶村姞涓涓崟寮曞彿(')灏辨槸娉ㄩ噴锛屼緥濡備互涓嬬▼搴忎腑绗笁鍙ヤ唬鐮佸氨鏄敞閲婃帀浜嗐傚垹鎺'锛屽氨鏄彇娑堟敞閲 Private Sub CommandButton1_Click()On Error Resume Next 'Call Connect UserForm1.Show 0 End Sub
绛旓細arr1 = Range("f1:f" & Cells(Rows.Count, 1).End(3).Row)'i浠1鍒癮rr1鍖哄煙涓崟鍏冩牸鐨勬暟閲 For i = 1 To UBound(arr1)'濡傛灉arr1涓(i,1)涓厓绱犵殑鍐呭鍖呭惈浠ラ氶厤绗﹁〃绀虹殑"*灏忚妭*"锛岄偅灏辨墽琛孖F鍐呯殑璇彞 If arr1(i, 1) Like "*灏忚妭*" Then j = j & ",A" & i End If ...
绛旓細vbDirectory) '寮濮嬫煡鎵剧涓椤笵o While MyName <> "" '閬嶅巻 If MyName <> "." And MyName <> ".." Then '妫鏌ユ槸鍚﹀埌鏈熬 '鍒ゆ柇褰撳墠鏄惁鏄洰褰 If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then m = m + 1 '鐒跺悗鎵撳紑璇ョ洰褰曢噷鐨:浣忔埧淇℃伅....
绛旓細Sub Macro1()Dim arr, brr, crr, d As Object, i&, j&Set d = CreateObject("scripting.dictionary")arr = Sheet1.Range("a1").CurrentRegion '褰撳墠鍖哄煙锛屾棦A鍒癐鍒楁暟鎹産rr = Sheet2.Range("a1").CurrentRegion '褰撳墠鍖哄煙锛屾棦A鍒癏鍒楁暟鎹紝I鍒楀繀椤讳负绌虹櫧銆俁eDim crr(1 To UBound(brr) ...
绛旓細vba浠ｇ爜娉ㄩ噴鍙互浣跨敤锛1銆佽嫳鏂囧崟寮曞彿锛2銆乺em 瑙佹埅鍥剧畝鍗曟紨绀 妤间富濡傛灉鏄拡瀵瑰叿浣撲唬鐮侊紝闇瑕佽В閲婏紝闇瑕佹彁渚涚浉鍏冲唴瀹癸紝鐒跺悗鎵嶈兘澶勭悊
绛旓細<x:Print> <x:ValidPrinterInfo/> <x:PaperSizeIndex>129</x:PaperSizeIndex> '绾稿紶澶у皬 <x:HorizontalResolution>600</x:HorizontalResolution>'姘村钩鍒嗚鲸鐜 <x:VerticalResolution>600</x:VerticalResolution>'鍨傜洿鍒嗚鲸鐜 </x:Print> <x:CodeName>Sheet1</x:CodeName> <x:ShowPageBreakZoom/>'鏄剧ず...
绛旓細1.鏄疊鍒楁渶鍚庝竴涓潪绌哄崟鍏冩牸琛屽彿锛孯OW鍗宠锛2.鍗冲崟鍏冩牸鍖哄煙B3锛欳鏈鍚庝竴琛岋紝濡侰鍒楁渶鍚庝竴琛屾槸绗10琛岋紝閭ｄ箞Range("B3:C"&b) 灏辨槸B3锛欳10鍗曞厓鏍煎尯鍩燂紱copy鍒癱ells(j,2)鏄粠杩欎釜鍗曞厓鏍间负椤剁偣鍗曞厓鏍间笌琚玞opy 鐨勫尯鍩熶竴鏍峰ぇ鐨勫尯鍩燂紝骞朵笉鏄竴涓崟鍏冩牸銆3. & 鏄繛鎺ョ Sub mysub()Dim start As ...
