返回列表 上一主題 發帖

各位大大excel vba能將多個工作表合併個對應內容?

各位大大excel vba能將多個工作表合併個對應內容?

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



b151f8198618367ad0e7b9a03e738bd4b31ce565.jpg
2020-9-3 21:23

用最簡單的
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

應該就好了
不然錄製個巨集也可以
莫讓他人錯誤傷害自己

TOP

回復 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

TOP

回復 3# jcchiang

好厲害的寫法
莫讓他人錯誤傷害自己

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題