Board logo

標題: 巨集程式詢問 [打印本頁]
作者: cherryliao    時間: 2015-8-26 23:57     標題: 巨集程式詢問

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

再請大師協助了，感恩！:P
作者: lpk187    時間: 2015-8-27 11:02

回復 1# cherryliao


   請上傳範例檔案，比較好理解
作者: ikboy    時間: 2015-8-27 14:57

思路
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    時間: 2015-8-27 22:25

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

再請大師協助了，感恩！:P
作者: cherryliao    時間: 2015-8-27 22:27

回復  cherryliao


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


[attach]21830[/attach]

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

再請大師協助了，感恩！:P
作者: lpk187    時間: 2015-8-27 23:33

回復 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    時間: 2015-8-28 06:10

Resize 參數不會自動計算 , 很麻煩
作者: lpk187    時間: 2015-8-28 16:35

回復 7# yoyobuy

Resize 參數不會自動計算？？
裡面的參數給予動態變數，一樣會自動計算！Ubound()也是動態變數啊！程式語言都是死的，那還要看你如何搞活它！
作者: yoyobuy    時間: 2015-8-29 14:52

經過仔細查驗, 無誤
Resize 確實不會自動計算參數
作者: lpk187    時間: 2015-8-29 15:07

回復 9# yoyobuy


    你要表達什麼？



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)