首頁>Club>

EXCEL為何不能替換單元格里面的內容。用VBA能解決嗎？

11
回覆列表
  • 1 # 蘿蔔哥40

    如果CTRL+A用不了，那麼就是單元格保護裡面限制了選擇。

    可以用VBA來強行選擇複製：

    一、按ALT+F11開啟VB編輯器

    二、雙擊左邊靠上的【工程資源管理器】中的【MicrosoftExcel物件】中的ThisWorkbook(如果找不到【工程資源管理器】請按CTRL+R)，在右邊的程式碼視窗貼入下面的程式碼：（根據實際情況按程式碼說明修改a、b的值，""中的內容）

    Sub強行復制()

    "修改以下兩行""中的工作表名字

    DimaAsString:a="Sheet1""修改成你需要複製的表名

    DimbAsString:b="Sheet2""修改成貼上的空白表名

    "以下不需要修改

    Sheets(a).Cells.Copy

    Sheets(b).Range("A1").Select

    ActiveSheet.Paste

    EndSub

    三、回到EXCEL表，執行選單【工具】－【宏】－【宏】，選擇強行復制這條宏，然後按執行。

    四、假如有提示說宏的安全性被限制此類的資訊，請在工具欄－【宏】－【安全性】裡面把【安全級】設定為【中】。

  • 2 # 蘿蔔哥40

    如果CTRL+A用不了，那麼就是單元格保護裡面限制了選擇。

    可以用VBA來強行選擇複製：

    一、按ALT+F11開啟VB編輯器

    二、雙擊左邊靠上的【工程資源管理器】中的【MicrosoftExcel物件】中的ThisWorkbook(如果找不到【工程資源管理器】請按CTRL+R)，在右邊的程式碼視窗貼入下面的程式碼：（根據實際情況按程式碼說明修改a、b的值，""中的內容）

    Sub強行復制()

    "修改以下兩行""中的工作表名字

    DimaAsString:a="Sheet1""修改成你需要複製的表名

    DimbAsString:b="Sheet2""修改成貼上的空白表名

    "以下不需要修改

    Sheets(a).Cells.Copy

    Sheets(b).Range("A1").Select

    ActiveSheet.Paste

    EndSub

    三、回到EXCEL表，執行選單【工具】－【宏】－【宏】，選擇強行復制這條宏，然後按執行。

    四、假如有提示說宏的安全性被限制此類的資訊，請在工具欄－【宏】－【安全性】裡面把【安全級】設定為【中】。

相關內容

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 夢見遮陽網落別人房上？