根据表1表2数据合成表3数据

qhdrtvu · 发表于 2024-4-8 17:21

通过点表3的合成按钮，选择1-5，如果选1，就将表1中的数据和表2中分类为1的数据合并，共合并成4*6=24条数据。合成后提示：共4人，6个名称，合计24条数据。

表合成.zip (14.75 KB, 下载次数: 13)

无敌小猪猪 · 发表于 2024-4-8 20:14

反正我看了是没啥匹配的逻辑

shiruiqiang · 发表于 2024-4-8 21:09

应该是表1中的所有数据条数，乘以，表2中分类为选择序号的条数。此例子分类1才5条啊，应该前面4人分别乘以这5条，合计20吧

yynrzwh · 发表于 2024-4-8 22:09

表合成.zip (23.92 KB, 下载次数: 6)

qhdrtvu · 发表于 2024-4-9 09:36

yynrzwh 发表于 2024-4-8 22:09

谢谢最后一个分类是12345，技术与1，也属于2，我用InStr判断了一下，可以了。

李正旺2024 · 发表于 2024-4-10 01:11

Sub text2()
Dim a%, i%, j%
a = InputBox("请输入数字:")
For j = 2 To Sheet1.Cells(Rows.Count, 2).End(xlUp).Row

         For i = 18 To Sheet2.Cells(Rows.Count, 3).End(xlUp).Row
               If Sheet2.Cells(i, "M") = a Then
         b = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Sheet3.Cells(b, 1) = Sheet1.Cells(j, 2)
            Sheet3.Cells(b, 2) = Sheet1.Cells(j, 1)
            Sheet3.Cells(b, 3) = Sheet2.Cells(i, 3)
            Sheet3.Cells(b, 4) = Sheet2.Cells(i, 4)
               End If
         Next


Next

End Sub

		自动登录	找回密码
密码			免费注册

[求助] 根据表1表2数据合成表3数据