提取相相应表格内容到另一个表格的代码

yz0116

我想用EXECL VBA 写一段代码，工作表名称有“工程”字样的工作表中第2行中某个单元格内容与工作表“项目费用统计“第2行某个单元格内容相一致时，则名称有“工程”字样的工作表对应单元格所在的那一列第8行中单元格内容复制到工作表“项目费用统计”中对应单元格所在列的第4行单元格，自第4行依次往下填写。

代码如下：
Sub ExtractData()    Dim ws1 As Worksheet    Dim ws2 As Worksheet    Dim i As Integer    Dim j As Integer    Dim k As Integer    k = 4    For Each ws1 In ThisWorkbook.Worksheets        If InStr(ws1.Name, "工程") > 0 Then            For i = 2 To ws1.UsedRange.Rows.Count                For Each ws2 In ThisWorkbook.Worksheets                    If ws2.Name = "项目费用统计" Then                        For j = 8 To ws1.UsedRange.Columns.Count                            If ws1.Cells(2, j).Value = ws2.Cells(2, j).Value Then                                ws2.Cells(k, j).Value = ws1.Cells(8, j).Value                            End If                        Next                    End If                Next                k = k + 1            Next        End If    NextEnd Sub
实际运行后，变成了这样



我的实际想法是变成这样的

yz0116

代码是这样的

yz0116

再补充说明一下 这两个表格的内容位置并不是完全对应的，情况统计表中的有的标题栏内容，费用统计表中并不需要，否则我直接对应单元格的行位置就可以

shiruiqiang

1-30项直接提取三个工程表内的1-22项、25、27、37-42项，不空+1

yz0116

shiruiqiang 发表于 2023-2-19 22:29
1-30项直接提取三个工程表内的1-22项、25、27、37-42项，不空+1

谢谢指点，你是通过这届确定单元格位置来提取的，能不能通过自动识别费用表和工程表中标题栏某个单元格内容一致时，就提取工程表单元格所在列的指定某一位置的内容呢，因为本表格的格式内容不是固定不变的。我前面的汇总表有3种，分别为进展、单位、费用，每一个表格的格式和需要提取后面工程表的内容不完全相同，

yz0116

shiruiqiang 发表于 2023-2-19 22:29
1-30项直接提取三个工程表内的1-22项、25、27、37-42项，不空+1

谢谢指点，您是直接指定了工程表的相应内容单元格的所在位置，我县能不能通过自动识别费用表和工程表表头某个单元格的内容是否一致，如一致则把工程表中改单元格所在列中指定的某一单元格内容复制到费用表相应位置。因为我的汇总表有3个，分别是进度、单位、费用，每个表的格式内容位置不完全一致

shiruiqiang

yz0116 发表于 2023-2-20 11:53
谢谢指点，您是直接指定了工程表的相应内容单元格的所在位置，我县能不能通过自动识别费用表和工程表表头 ...

这个要搞比较麻烦，各列不规则的合并单元格较多。除非都限制好，否则要把合并单元格的值或空值搞定需要多写几段代码。个人意见

yz0116

shiruiqiang 发表于 2023-2-20 14:47
这个要搞比较麻烦，各列不规则的合并单元格较多。除非都限制好，否则要把合并单元格的值或空值搞定需要多 ...

的确有点麻烦，我的本来的思路是想利用某个函数能势必不同工作表中同一内容的单元格，然后在按条件复制单元格旁边的数据到另一工作表中