標題: 複制 activecell 所在行的資料到某頁， [打印本頁]

---

作者: eigen    時間: 2013-12-28 00:24     標題: 複制 activecell 所在行的資料到某頁，

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

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

1. Sub setup_cal()
   
2.         Dim E As Range
   
3.         Sheets("Sheet1").Activate
   
4.                 For Each E In Selection.EntireRow
   
5.                         If E.Row > 1 Then 'And (E.Range("a1") = 1 Or E.Range("a1") = "Yes") Then
   
6.        
   
7.                                  With Sheets("Sheet2")
   
8.                                         .[a1]=        E.Range("b1")                                '客戶編號
   
9.                                         .[b1]=        E.Range("d1")                                '客戶名稱
   
10.                                         .[k2]=        E.Range("e1")                                '本期應收
    
11.                                  End With        
    
12.                          End If
    
13.                 Next       
    
14. End Sub

複製代碼

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

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

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

---

作者: ML089    時間: 2013-12-28 08:21

無論選擇一行、兩行，還是很多行，我都只需要複制被選擇的第一行到另一個sheet 之中。
For Each E In Selection.EntireRow ，我應該怎麼改寫

改為
Set E = Selection(1, 1).EntireRow

Sub setup_cal()
    Dim E As Range
    Set E = Selection(1, 1).EntireRow
    If E.Row > 1 Then
        With Sheets("Sheet2")
            .[a1] = E.Range("b1") '客戶編號
            .[b1] = E.Range("d1") '客戶名稱
            .[k2] = E.Range("e1") '本期應收
        End With
    End If
End Sub

---

作者: eigen    時間: 2013-12-28 22:22

回復 2# ML089


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)