麻辣家族討論版版 » Excel程式區 » 請問:將資料貼到對應名稱的工作表中方法...

返回列表下一主題上一主題發帖

[發問] 請問:將資料貼到對應名稱的工作表中方法...

中學生 Rank: 2

帖子: 29
主題: 11
精華: 0
積分: 70
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-7-31
最後登錄: 2023-8-9

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2017-4-29 00:43 | 只看該作者

[發問] 請問:將資料貼到對應名稱的工作表中方法...

點一下按紐，讓 A2:F2 自動新增(貼)到對應的工作表中的(工作表約有100個)
目前只會以下的方法
Sub Macro()
With Worksheets("表1")
If Worksheets("送審表單").Range("a2") = "" Then Exit Sub
Worksheets("送審表單").Range("a2:f2").copy .Range("A65536").End(xlUp).Offset(1, 0)
End With
End Sub

附上檔案

TEST02.rar (14.04 KB)

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

4^#

發表於 2017-5-1 17:38 | 只看該作者

Sub Macro()
With Worksheets("送審表單")
　　　If .[A2] = "" Then Exit Sub
　　　.[a2:f2].Copy Sheets(.[A2].Value).[A65536].End(xlUp)(2)
End With
End Sub

中學生 Rank: 2

帖子: 29
主題: 11
精華: 0
積分: 70
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-7-31
最後登錄: 2023-8-9

3^#

發表於 2017-4-29 16:35 | 只看該作者

實在太感謝了 :D

小學生 Rank: 1

帖子: 31
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: win10
軟體版本: office 2016
閱讀權限: 10
性別: 男
註冊時間: 2016-10-4
最後登錄: 2017-10-17

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-4-29 14:49 | 只看該作者

Sub Macro()
If Worksheets("送審表單").Range("a2") <> "" Then
Data = [a2:f6]
With Worksheets(Data(1, 1))
.Activate
.Range("A65536").End(xlUp).Offset(1, 0).Resize(, 6) = Data
End With
End If
End Sub

複製代碼

回復 1# a_nanami

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。

返回列表下一主題上一主題