巨集程式詢問

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

10^#

發表於 2015-8-29 15:07 | 只看該作者

回復 9# yoyobuy

你要表達什麼？

yoyobuy

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
註冊時間: 2015-8-27
最後登錄: 2018-9-12

9^#

發表於 2015-8-29 14:52 | 只看該作者

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

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

8^#

發表於 2015-8-28 16:35 | 只看該作者

回復 7# yoyobuy

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

yoyobuy

帖子: 8
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: xp
軟體版本: xp
閱讀權限: 10
註冊時間: 2015-8-27
最後登錄: 2018-9-12

7^#

發表於 2015-8-28 06:10 | 只看該作者

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

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2015-8-27 23:33 | 只看該作者

回復 5# cherryliao

試試吧！

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

複製代碼

cherryliao

帖子: 4
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: WINDOWS 7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 女
來自: TAIWAN
註冊時間: 2015-8-23
最後登錄: 2015-9-9

5^#

發表於 2015-8-27 22:27 | 只看該作者

回復 cherryliao

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

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

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

CHERRY LIAO

cherryliao

帖子: 4
主題: 2
精華: 0
積分: 6
點名: 0
作業系統: WINDOWS 7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 女
來自: TAIWAN
註冊時間: 2015-8-23
最後登錄: 2015-9-9

4^#

發表於 2015-8-27 22:25 | 只看該作者

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

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

擷取.PNG (40.58 KB)

CHERRY LIAO

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

3^#

發表於 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

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

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-8-27 11:02 | 只看該作者

回復 1# cherryliao

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