返回列表 上一主題 發帖

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

a_nanami

帖子
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)
收藏 分享

葉國洲

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2017-4-29 14:49 | 只看該作者
  1. Sub Macro()
  2.    If Worksheets("送審表單").Range("a2") <> "" Then
  3.       Data = [a2:f6]
  4.       With Worksheets(Data(1, 1))
  5.         .Activate
  6.         .Range("A65536").End(xlUp).Offset(1, 0).Resize(, 6) = Data
  7.       End With
  8.    End If
  9. End Sub
複製代碼
回復 1# a_nanami

TOP

a_nanami

帖子
29 
主題
11 
精華
0 
積分
70 
點名
0  
作業系統
WINDOWS 10 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2010-7-31 
最後登錄
2023-8-9 
3#
發表於 2017-4-29 16:35 | 只看該作者
實在太感謝了 :D

TOP

准提部林

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

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題