麻辣家族討論版版 » Excel程式區 » 複制 activecell 所在行的資料到某頁，

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

複制 activecell 所在行的資料到某頁，

中學生 Rank: 2

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-12-28 00:24 | 顯示全部帖子

複制 activecell 所在行的資料到某頁，

複制 activecell 所在行的資料到某頁，

我是參考 http://forum.twbts.com/thread-10659-1-1.html，修改出來的

Sub setup_cal()
Dim E As Range
Sheets("Sheet1").Activate
For Each E In Selection.EntireRow
If E.Row > 1 Then 'And (E.Range("a1") = 1 Or E.Range("a1") = "Yes") Then
With Sheets("Sheet2")
.[a1]= E.Range("b1") '客戶編號
.[b1]= E.Range("d1") '客戶名稱
.[k2]= E.Range("e1") '本期應收
End With
End If
Next
End Sub

複製代碼

這個程序會將所在行的資料 copy 到另一個 sheet

問是卡在：無論選擇一行、兩行，還是很多行，我都只需要複制被選擇的第一行到另一個sheet 之中。

For Each E In Selection.EntireRow ，我應該怎麼改寫？謝謝

樓主熱帖

收藏

公開經驗，創造智慧（我又不靠這過活）

中學生 Rank: 2

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

2^#

發表於 2013-12-28 22:22 | 顯示全部帖子

回復 2# ML089

非常感謝你的回復，原來是用 set ~~謝謝~~

公開經驗，創造智慧（我又不靠這過活）

靜思自在 : 原諒別人就是善待自己。

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