請選擇 進入手機版 | 繼續訪問電腦版

COCO研究院

 找回密碼
 註冊
搜索
查看: 5813|回復: 3

[EXCEL] 請教一個 EXCEL VBA 問題..

[複製鏈接]
發表於 17-6-20 12:16 | 顯示全部樓層 |閱讀模式

  我以手工"錄製"巨集如下:

    Rows("3:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("9:9").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("12:12").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove


現在, 我想用 for_next迴圈,一直做到  Rows("120:120").Select為止,
請問何解? thanks



 樓主| 發表於 17-6-20 12:25 | 顯示全部樓層
本帖最後由 googleandy 於 17-6-20 12:27 編輯

  Dim i As Integer

For i = 3 To 120 Step 3
     Rows("""" & Trim(Str(i)) & ":" & Trim(Str(i)) & """").Select
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next i

    以上的嘗試, 文法沒錯,可編譯, 但無法執行.

246.jpg
發表於 17-6-20 13:04 | 顯示全部樓層

Rows(Trim(Str(i)) & ":" & Trim(Str(i))).Select



評分

參與人數 1金錢 +2 收起 理由
googleandy + 2 成功了, 非常感謝.

查看全部評分

 樓主| 發表於 17-6-20 13:35 | 顯示全部樓層
akmod 發表於 17-6-20 13:04
Rows(Trim(Str(i)) & ":" & Trim(Str(i))).Select

謝謝A大.
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

手機版|Archiver|站長信箱|廣告洽詢|COCO研究院

GMT+8, 24-5-25 12:36

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.

快速回復 返回頂部 返回列表
理財討論網站 | AI繪圖AI超擬真美女AI beauty AI Stable DiffusionAI正妹AI Lookbook