PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-15 03:01 | 顯示全部帖子

自動複製有資料的區塊

Hi,
我在錄製巨集時,常會用到複製一個指定區塊到另一個新的sheet中,例如B2:E55,但因為資料會一直增加,可能下回是B2:F99,但在錄巨集時我又不想將範圍拉得太大,能不能在執行巨集時,若我要B2:E..(資料最底端),也有可能是C3:Y180,因為我有很多sheet要執行,但每個工作表不同,所以範圍也都不一樣,但唯一相同的,都是要至資料的最底端,它可以自動篩選出有資料的區塊嗎?

樓主熱帖

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2012-1-15 15:55 | 顯示全部帖子

大大好,
我將你回復的寫法套到我的巨集中,但無法執行,檢查不出哪裡不對,我copy出來,可否幫忙看一下?
Windows("VBA Cluster.xlsm").Activate
Sheets("BCM控管").Select
Columns("A:CZ").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$1

CZ$1800").AutoFilter Field:=70, Criteria1:=Array( _
"Delay", "OK", "pre-Booking"), Operator:=xlFilterValues
Range("E1:BW1800").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Columns("BO:BQ").Select
Selection.Delete Shift:=xlToLeft
Columns("BD:BM").Select
Selection.Delete Shift:=xlToLeft
Columns("AX:AX").Select
Selection.Delete Shift:=xlToLeft
Columns("AM:AU").Select
Selection.Delete Shift:=xlToLeft
Columns("AA:AA").Select
Selection.Delete Shift:=xlToLeft
Columns("V:W").Select
Selection.Delete Shift:=xlToLeft
Columns("S:T").Select
Selection.Delete Shift:=xlToLeft
ActiveSheet.UsedRange.Copy SheetsBCM控管.[A65536].End(3)(2, 1).Select =>這裡無法執行

'Range("A1:AQ350").Select
Selection.Copy

Workbooks.Add
ActiveSheet.Paste

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2012-1-16 22:10 | 顯示全部帖子

大師,可否幫忙看看哪裡出了問題? 我的工作表每天都會增加新的資料,我在copy工作表資料時會做些篩選再進行copy..
Windows("VBA Cluster.xlsm").Activate
Sheets("BCM控管").Select
Columns("A:CZ").Select
Selection.EntireColumn.Hidden = False
ActiveSheet.Range("$A$1CZ$1800").AutoFilter Field:=70, Criteria1:=Array( _
      "Delay", "OK", "pre-Booking"), Operator:=xlFilterValues       '這是有進行篩選後的
Range("E1:BW1800").Select '這裡的資料隨時會增加,有可能是E1:BW2000,或者別的工作表也會COPY不同的資料,有可能是B2:G500,因為很多工作表用得到這個功能,我希望在進行篩選後,只COPY有資料的地方,而不要大範圍的COPY,會造成太多垃圾,前面oobird教我用"
ActiveSheet.UsedRange.Copy Sheet3.[A65536].End(3)(2, 1)",但都無法執行,請高手幫忙找找原因出在哪?
Selection.Copy
Workbooks.Add
ActiveSheet.Paste

ActiveSheet.UsedRange.Copy SheetsBCM控管.[A65536].End(3)(2, 1).Select  '我套用後,這裡無法執行

Workbooks.Add
ActiveSheet.Paste

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2012-1-17 22:22 | 顯示全部帖子

我需要善心人士來幫忙,哪位大師可以幫我看看上面的程式出了什麼問題?救命!

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2012-1-18 22:00 | 顯示全部帖子

[attach]excel[/attach]前面的說明+上傳檔案,或許能比較明白我在說什麼?請大家幫個忙!謝謝

VBA Cluster.zip (83.23 KB)

excel

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2012-1-18 23:22 | 顯示全部帖子

謝謝超級版主,可以運作了!受教了.:)
我想問幾個問題: a) 版主貼出來的程式為什麼左邊都有行號,怎麼做的? b)用錄製的巨集其程式語言為什麼跟你寫出來的不一樣?你寫出來的程式也可以在excel VBA中使用,但這是什麼程式語言?哪種程式語言可以共用在excel中?    c) 我完全不會寫程式,如果我想自學,什麼語言是入門,有沒有推薦的書? d) .Range("A:CZ").AutoFilter Field:=70, Criteria1:=Array( _
      "Delay", "OK", "pre-Booking"), Operator:=xlFilterValues 是有條件的篩選資料,但我要讓篩選自動取消要怎麼寫?
e)最後一個問題,如前面你所寫的程式11行    a.Copy .[A1],是將後面的程式叫做[A1],若同一個巨集中我想用同樣的手法copy不同的資料,則是否要將[A1]改為[A2]或其它代碼?

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2012-1-19 00:44 | 顯示全部帖子

大大,不好意思再補個問題:
以前面的程式 a.Copy .[A1],是copy資料(含格式,公式),我想問其他的寫法如下:
a) copy資料(含格式)之後貼上值=讓原先的資料沒有公式
b) copy資料只貼上值(不含格式)
請賜教這二種寫法.

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2012-1-19 12:26 | 顯示全部帖子

超級版主,謝謝您回覆,前面所回覆執行完全OK.
我將您寫的程式修改到另一個檔案中,以下是將資料另開一個新的工作表(book1)貼上,執行該刪除的資料後,以下是我想新增的程式:
我想將整理後的資料剩下A:D,打開舊檔貼上只有A:D有數值的部份,其路徑及檔名為:P:\BCM\2011 BCMart Multi-Format.xlsx,另一個難題是因為我可能打開的是book2 or book3去執行以下的程式,所以要如何寫才能讓它依bookxx去copy資料?
Sub copy_Chart_F()
'
' copy_Chart_F 巨集
'

'
Windows("VBA Cluster.xlsm").Activate
With ThisWorkbook.Sheets("Chart-F")
.Columns("D:AP").Hidden = False
Set A = Intersect(.UsedRange, .Range("D:Z")).SpecialCells(xlCellTypeVisible)
With Workbooks.Add
With .Sheets(1)
A.Copy .Range("A1") '完全複製
A.Copy
.Range("A1").PasteSpecial xlPasteValues '選擇性貼上值
.Columns("G:U").Delete Shift:=xlToLeft
Columns("B:E").Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.Cut
Columns("D:D").Select
Selection.Insert Shift:=xlToRight

End With

End With
End With

End Sub

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

9^#

發表於 2012-1-20 12:34 | 顯示全部帖子

我試著修改版主幫我寫的程式,現在有問題的是後半段,copy "Chart-F",A:D有數值的區域,貼到已開啟的檔案"2011 BCMart Multi-Format.xlsx" 的sheets("Factory's order")的A1儲存格,但都貼不上,我將檔案上傳,請大家幫我看看問題在哪裡,謝謝!

Chart-F.zip (32.73 KB)

With ThisWorkbook.Sheets("Chart-F")
Set B = Intersect(.UsedRange, .Range("A:D")).SpecialCells(xlCellTypeVisible)
Windows("2011 BCMart Multi-Format.xlsx").Activate
Sheets("Factory's order").Select
B.Copy .Range("A1") '完全複製
End With

End Sub

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2012-1-20 21:58 | 顯示全部帖子

Dear,
我想要複製資料時,完全複製後貼上值,可是執行到選擇性貼上值就失敗了,請問哪裡出錯了?

Chart-F.zip (37.44 KB)
With ThisWorkbook.Sheets("Chart-F")
Set B = Intersect(.UsedRange, .Range("A:D")).SpecialCells(xlCellTypeVisible)
B.Copy Workbooks("2011 BCMart Multi-Format.xlsx").Sheets("Factory's order").Range("A1") '完全複製
B.Copy Workbooks("2011 BCMart Multi-Format.xlsx").Sheets("Factory's order").Range("A1").PasteSpecial xlPasteValues '選擇性貼上值,失敗了

End With

TOP