12
返回列表 上一主題 發帖

[發問] 資料的複製、貼上，語法問題

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
4# 跳轉到 »
發表於 2019-6-20 02:47 | 只看該作者
本帖最後由 n7822123 於 2019-6-20 03:02 編輯

回復 3# iceandy6150


在非啟用的工作表做選取，會發生錯誤

所以盡量不要用 Select，下面程式同理，試試看

Sheets("工作表1").Activate
Sheets("結果區").Range("A1").Select

選取之前，要先改啟用的工作表，
改成下面這樣就可以了

Sheets("工作表1").Activate
Sheets("結果區").Activate
Sheets("結果區").Range("A1").Select
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

iceandy6150

帖子
129 
主題
25 
精華
0 
積分
159 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
註冊時間
2011-12-24 
最後登錄
2022-12-12 
3#
發表於 2019-6-20 01:54 | 只看該作者
回復 2# n7822123


    感謝大大講解，原來規則是這樣

回到我第一題
  1. With Sheets("工作表1")

  3. a = .UsedRange.Rows.Count
  4. Sheets("結果區").Range("A1:Z200").Delete Shift:=xlShiftUp    '清除所有資料
  5. Sheets("工作表1").Range("A1:B" & a).Copy
  6. Sheets("結果區").Range("A1").Select
  7. Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
  8. , SkipBlanks:=False, Transpose:=False

  10. Application.CutCopyMode = False
  11. End with
複製代碼
說錯在那一行
擷取.JPG

是因為用了 With Sheets("工作表1")
所以我Sheets("結果區").Range("A1").Select 這樣就會錯嗎?
還是另有原因
謝謝
哈囉~大家好呀

TOP

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2#
發表於 2019-6-20 01:15 | 只看該作者
本帖最後由 n7822123 於 2019-6-20 01:26 編輯

回復 1# iceandy6150

可是在這一行跟我說出錯  Sheets("結果區").Range("A1").Select
為什麼呢?

a = .UsedRange.Rows.com
應該是
a = .UsedRange.Rows.count


二、不同檔案之間的複製、貼上

你的題目實在太廣了.......寫法千百種
只能說新手只能多看別人怎麼寫的
最後才能找到自己習慣的寫法

原程式:
Windows("資料.xlsx").Activate
.Range("A1:B3").copy

Windows("檔案.xlsx").Activate
.Range("A1").select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False

(1)可以設物件來簡短長度 如下:

Set 資料表=workbooks("資料.xlsx").sheets("工作表1")
Set 檔案表=workbooks("檔案.xlsx").sheets("工作表1")
資料表.[A1:B3].copy
檔案表.[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False


(2)如果啟用的工作表在"資料.xlsx"的"工作表1"，
     基本上以後用這個工作表，前面的"地址"就可以省略了
     用Activate+With...End With 來簡短長度 如下

workbooks("資料.xlsx").sheets("工作表1").Activate

with workbooks("檔案.xlsx").sheets("工作表1")
    [A1:B3].copy  
    .[A1].PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
    , SkipBlanks:=False, Transpose:=False  
end with


[A1:B3].copy  這裡是copy "資料.xlsx"的"工作表1"的[A1:B3]，因為是啟用的工作表，前面直接省略!
注意[A1]前面多了.，所以是在"檔案.xlsx"的"工作表1"的[A1]貼上
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
12
返回列表 上一主題