標題: 各位大大excel vba能將多個工作表合併個對應內容？ [打印本頁]

---

作者: wsx1130    時間: 2020-9-3 21:25     標題: 各位大大excel vba能將多個工作表合併個對應內容？

將第一個工作表為總表，想要執行vba將其他工作表資料複製到總表



[attach]32501[/attach]

---

作者: y54161212    時間: 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

應該就好了
不然錄製個巨集也可以

---

作者: jcchiang    時間: 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

---

作者: y54161212    時間: 2020-9-9 20:59

回復 3# jcchiang

好厲害的寫法

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)