巨集程式詢問

cherryliao

我有一個exl檔案，有200個sheet，每個sheet欄位都一樣，想要設2個巨集
1. 執行複製一行列，於下面插入複製列的「值」，200個sheet都一樣
2. 「群組」3欄，200個sheet都一樣。

再請大師協助了，感恩！:P

lpk187

回復 1# cherryliao


   請上傳範例檔案，比較好理解

ikboy

思路
Sub CopySourceRowTo200Sheets()
Set SourceRow = [您的源列]
rs=Rows.count
For i = 1 to 200
With sheys(i)
  SourceRow.copy .Range("a" & rs).end(xlup)(2)  Rem假設您的資料由A欄開始
End with
Next
End sub

另一個問題不理解
發至我的小米手機

cherryliao

下載 (40.58 KB)
sheet格式，200個sheet於file夾中

2015-8-27 22:25

[img]我有一個exl檔案，有200個sheet，每個sheet欄位都一樣，想要設2個巨集
1. 執行複製一行列(如圖第36列)，於下面(41列)插入複製列的「值」，200個sheet都一樣
2. 「群組」欄(如圖上方有個+可以縮放)，想複製到200個sheet都一樣。

再請大師協助了，感恩！:P

cherryliao

回復  cherryliao


   請上傳範例檔案，比較好理解
lpk187 發表於 2015-8-27 11:02

下載 (40.58 KB)

2015-8-27 22:27

我有一個exl檔案，有200個sheet，每個sheet欄位都一樣，想要設2個巨集
1. 執行複製一行列(如圖第36列)，於下面(41列)插入複製列的「值」，200個sheet都一樣
2. 「群組」欄(如圖上方有個+可以縮放)，想複製到200個sheet都一樣。

再請大師協助了，感恩！:P

lpk187

回復 5# cherryliao

試試吧！

1. Public Sub ex()
   
2.     For Each sh In Worksheets
   
3.         With Sheets(sh.Name)
   
4.             xx = .Cells(36, Columns.Count).End(xlToLeft).Column
   
5.             ar = .Range("A36", .Cells(36, xx))
   
6.             If ar <> "" Then .Range("A41").Resize(, UBound(ar, 2)) = ar
   
7.         End With
   
8.     Next
   
9. End Sub

複製代碼

yoyobuy

Resize 參數不會自動計算 , 很麻煩

lpk187

回復 7# yoyobuy

Resize 參數不會自動計算？？
裡面的參數給予動態變數，一樣會自動計算！Ubound()也是動態變數啊！程式語言都是死的，那還要看你如何搞活它！

yoyobuy

經過仔細查驗, 無誤
Resize 確實不會自動計算參數

lpk187

回復 9# yoyobuy


    你要表達什麼？