- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2024-11-19
|
思路
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
另一個問題不理解
發至我的小米手機 |
|
發表於 2015-8-27 14:57
| 