巨集程式詢問 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 巨集程式詢問

返回列表下一主題上一主題發帖

巨集程式詢問

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 »

發表於 2015-8-27 11:02 | 顯示全部帖子

回復 1# cherryliao

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

高中生 Rank: 3 Rank: 3

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

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

2^#

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

複製代碼

高中生 Rank: 3 Rank: 3

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

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

3^#

發表於 2015-8-28 16:35 | 顯示全部帖子

回復 7# yoyobuy

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

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2015-8-29 15:07 | 顯示全部帖子

回復 9# yoyobuy

你要表達什麼？

靜思自在 : 能幹不幹，不如苦幹實幹。

返回列表下一主題上一主題