標題: 清問 工作表 要指定貼到特定分頁 下面程式要怎麼修改 [打印本頁]

---

作者: vavashop    時間: 2015-4-28 17:34     標題: 清問 工作表 要指定貼到特定分頁 下面程式要怎麼修改

各位大大
Sub test()
Dim row_s1 As Integer

'檢查工作表1的B欄已有資料行數
    row_s1 = Worksheets(1).Range("B65535").End(xlUp).Row

'B1無資料時，row_s1 =0
    If row_s1 = 1 Then
        If Cells(row_s1, 2) = "" Then
            row_s1 = 0
        End If
    End If


'第一次選資料0，並貼到工作表1
    Worksheets(2).Select
    ActiveSheet.Range("$A$1:$D$10").AutoFilter Field:=2, Criteria1:="0"
    Range("a2:d9").Select
    Selection.Copy
    Worksheets(1).Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste
   
'第二次選資料1，並貼到工作表1
    row_s1 = Worksheets(1).Range("B65535").End(xlUp).Row

    Worksheets(2).Select
    ActiveSheet.Range("$A$1:$D$10").AutoFilter Field:=2, Criteria1:="1"
    Range("a2:d9").Select
    Selection.Copy
    Worksheets(1).Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste


如果我的是工作頁. 要貼上的工作表名稱為 分析資料頁
請問這要怎麼修改呢
感謝大大

---

作者: vavashop    時間: 2015-4-28 17:57

Sub test()
Dim row_s1 As Integer

'檢查工作表1的B欄已有資料行數
    row_s1 = Worksheets("分析資料").Range("B65535").End(xlUp).Row

'B1無資料時，row_s1 =0
    If row_s1 = 1 Then
        If Cells(row_s1, 2) = "" Then
            row_s1 = 0
        End If
    End If


'第一次選資料0，並貼到工作表1
    Worksheets("工作表2").Select
    ActiveSheet.Range("$A$1D$10").AutoFilter Field:=2, Criteria1:="0"
    Range("a2:d9").Select
    Selection.Copy
    Worksheets("分析資料").Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste
   
'第二次選資料1，並貼到工作表1
    row_s1 = Worksheets("分析資料").Range("B65535").End(xlUp).Row

    Worksheets("工作表2").Select
    ActiveSheet.Range("$A$1D$10").AutoFilter Field:=2, Criteria1:="1"
    Range("a2:d9").Select
    Selection.Copy
   Worksheets("分析資料").Select
    Cells(row_s1 + 1, 2).Select
    ActiveSheet.Paste

End Sub



用好了 謝謝

---

作者: gn001038600    時間: 2015-4-29 10:14

您好! 以下提供工作簿選擇時的寫法

[attach]20822[/attach]

---

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