求助，两个SHEET表数据合并

shenzl163

附件中两个SHEET文件 由于每个人订购的产品种类不一样，列数不一样，现在要汇总在一起，SHEET2中的数据如何 能自动添加到SHEET1中数据后面

milkyway_echo

自学了几个月~~今天上来看看窗体的学习资料~~回复一下，不知道行不行

Private Sub CommandButton1_Click()


Dim i As Byte, l As Byte, j As Integer

j = [a65536].End(xlUp).Row

For i = 1 To 40  '表2的列数
For l = 1 To 53  '表1的列数
    If Cells(1, i).Value = Sheets("1").Cells(1, l) Then
    Range(Cells(2, i), Cells(j, i)).Copy Sheets("1").Cells(3, l) '表2的第2行至最后一行拷贝至A3
    End If
Next
Next

End Sub

shenzl163

milkyway_echo 发表于 2018-10-18 14:27
自学了几个月~~今天上来看看窗体的学习资料~~回复一下，不知道行不行

Private Sub CommandButton1_Click ...

数据好像错位了，不行呢

milkyway_echo

没有错位啊~~是表2导至表1，按钮1功能是固定导至表1第三行，按钮2功能是导至表一最末的空行~~
我把一开始测试产生的不必要数据的清理了

liulang0808

列数不一样，楼主要怎么=添加，建议模拟出添加后的结果

cjc209

采用动态字段名合并的方式就可以两表合并

yaozong

对应列标题合并。。。。

Sub 合并()
Sheets(2).Activate
Dim arr, i&, j&, n&, r&, x&, y&
r = [a1].End(4).Row + 1
With Sheets(1)
  arr = .[a1].CurrentRegion.Value
  x = UBound(arr, 2): y = UBound(arr) - 1
  For j = 1 To x
    Set cel = Rows("1:1").Find(arr(1, j), , , 1)
    If Not cel Is Nothing Then
      n = cel.Column
    Else
      n = [a1].End(2).Column + 1
      Cells(1, n) = arr(1, j)
    End If
    Cells(r, n).Resize(y) = .Cells(2, j).Resize(y).Value
  Next
End With
End Sub

shenzl163

liulang0808 发表于 2018-10-18 14:49
列数不一样，楼主要怎么=添加，建议模拟出添加后的结果

表1 产品名35个  其他表都比这个少， 合并时数量自动对应到相同品名下面

shenzl163

yaozong 发表于 2018-10-18 15:05
对应列标题合并。。。。

Sub 合并()

还是不行  要求： 合并时数量自动对应到相同品名下面

shenzl163

我重新写出 模拟出添加后的结果