返回列表 上一主題 發帖

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

複制 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 ,我應該怎麼改寫?謝謝
公開經驗,創造智慧(我又不靠這過活)

無論選擇一行、兩行,還是很多行,我都只需要複制被選擇的第一行到另一個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
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 2# ML089


    非常感謝你的回復,原來是用 set ~~謝謝~~
公開經驗,創造智慧(我又不靠這過活)

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題