返回列表 上一主題 發帖

巨集程式詢問

cherryliao

帖子
4 
主題
2 
精華
0 
積分
6 
點名
0  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2010 
閱讀權限
10 
性別
女 
來自
TAIWAN 
註冊時間
2015-8-23 
最後登錄
2015-9-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-26 23:57 | 只看該作者

巨集程式詢問

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

再請大師協助了，感恩！:P
收藏 分享
CHERRY LIAO

lpk187

帖子
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


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

TOP

ikboy

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

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

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

TOP

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)

擷取.PNG

CHERRY LIAO

TOP

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

TOP

lpk187

帖子
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

試試吧！
  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
複製代碼

TOP

yoyobuy

帖子
8 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
xp 
軟體版本
xp 
閱讀權限
10 
註冊時間
2015-8-27 
最後登錄
2018-9-12 
7#
發表於 2015-8-28 06:10 | 只看該作者
Resize 參數不會自動計算 , 很麻煩

TOP

lpk187

帖子
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()也是動態變數啊！程式語言都是死的，那還要看你如何搞活它！

TOP

yoyobuy

帖子
8 
主題
2 
精華
0 
積分
10 
點名
0  
作業系統
xp 
軟體版本
xp 
閱讀權限
10 
註冊時間
2015-8-27 
最後登錄
2018-9-12 
9#
發表於 2015-8-29 14:52 | 只看該作者
經過仔細查驗, 無誤
Resize 確實不會自動計算參數

TOP

lpk187

帖子
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


    你要表達什麼？

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題