清問 工作表 要指定貼到特定分頁 下面程式要怎麼修改
- 帖子
- 78
- 主題
- 30
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 註冊時間
- 2014-5-15
- 最後登錄
- 2018-9-16
|
清問 工作表 要指定貼到特定分頁 下面程式要怎麼修改
各位大大
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
如果我的是工作頁. 要貼上的工作表名稱為 分析資料頁
請問這要怎麼修改呢
感謝大大 |
|
|
|
|
|
|
|
- 帖子
- 78
- 主題
- 30
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 註冊時間
- 2014-5-15
- 最後登錄
- 2018-9-16
|
2#
發表於 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$1 D$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
用好了 謝謝 |
|
|
|
|
|
|
|
- 帖子
- 21
- 主題
- 1
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2015-3-13
- 最後登錄
- 2024-5-2
|
3#
發表於 2015-4-29 10:14
| 只看該作者
您好! 以下提供工作簿選擇時的寫法
|
|
|
|
|
|
|
|
