返回列表 上一主題 發帖

清問 工作表 要指定貼到特定分頁 下面程式要怎麼修改

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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


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

gn001038600

帖子
21 
主題
1 
精華
0 
積分
52 
點名
0  
作業系統
WIN7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2015-3-13 
最後登錄
2024-5-2 
3#
發表於 2015-4-29 10:14 | 只看該作者
您好! 以下提供工作簿選擇時的寫法

TOP

vavashop

帖子
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$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



用好了 謝謝

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題