各位大大excel vba能將多個工作表合併個對應內容？
- 帖子
- 51
- 主題
- 11
- 精華
- 0
- 積分
- 110
- 點名
- 0
- 作業系統
- win 10
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 註冊時間
- 2017-7-15
- 最後登錄
- 2024-10-27
|
各位大大excel vba能將多個工作表合併個對應內容？
將第一個工作表為總表，想要執行vba將其他工作表資料複製到總表
|
|
|
|
|
|
|
|
- 帖子
- 31
- 主題
- 7
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- Office365
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2020-6-14
- 最後登錄
- 2024-8-19
 
|
2#
發表於 2020-9-8 22:37
| 只看該作者
用最簡單的
Set sht1=worksheets(“Sheet1”)
Set sht2=Worksheets(“Sheet2”)
Set sht3=worksheets(“Sheet3”)
Set sht4=worksheets(“Sheet4”)
sht2.range(“D7:G7”).copy ‘選取的範圍
sht1.range(“d2”).pastespecial paste:=xlpastevalues ‘要貼上的第一格
sht3.range(“”).copy ‘看不出來你要複製的實際範圍
sht1. Range (“d9”).pastespecial Paste:=xlpastevalues
sht4.range(“”).copy
sht1.range(“”).pastespecial paste:=xlpastevalues
應該就好了
不然錄製個巨集也可以 |
|
|
莫讓他人錯誤傷害自己
|
|
|
|
|
- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
3#
發表於 2020-9-9 09:06
| 只看該作者
回復 1# wsx1130
Sub EX()
Dim Arr As Range
Set Arr = Sheets(1).[b1].CurrentRegion
For Each a In Array(2, 3, 4)
With Sheets(a)
For Each b In .Range(.[c2], .[c2].End(4))
For x = 2 To Arr.Rows.Count
If b = Arr(x, 3) And b.Offset(, 1) <> "" Then
Arr(x, 4).Resize(, 4) = b.Offset(, 1).Resize(, 4).Value
GoTo 100
End If
Next
100:
Next
End With
Next
End Sub |
|
|
|
|
|
|
|
- 帖子
- 31
- 主題
- 7
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- Office365
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2020-6-14
- 最後登錄
- 2024-8-19
|
4#
發表於 2020-9-9 20:59
| 只看該作者
|
|
莫讓他人錯誤傷害自己
|
|
|
|
|
