合并来自两个不同工作表的文本答案

【问题标题】：Merging text from two different sheets合并来自两个不同工作表的文本
【发布时间】：2023-03-29 22:38:02
【问题描述】：

如果这两个工作表中的某些值之间存在匹配，我正在研究如何合并工作簿中两个不同工作表中的文本。

我有两张表，Latency 和 DRG。我想将“DRG” Col E 中的文本合并到“延迟”表 Col P 中（行可能已经有文本，但“DRG” Col E 中的文本应该用分号合并。）

示例：（下面的代码进行匹配并更新 COl O 中的某个文本，我想将合并部分与此代码一起添加）如果 "latency" 的 col A 和 "DRG" 的 Col B 匹配，则 "DRG" 的 Col E 中的文本应合并到 "Latency" 表的 Col P（该特定行）中。

欢迎任何更好的方法。

Sub PassFailValidation()

 Dim Rng As Range, cl As Range
Dim LastRow As Long, MatchRow As Variant

With Sheets("DRG")
    LastRow = .Cells(.Rows.count, "C").End(xlUp).Row '<-- find last row with data in column C
    Set Rng = .Range("C2:C" & LastRow) '<-- set range in Column C
End With

With Sheets("Latency")
    For Each cl In .Range("B2:B" & .Cells(.Rows.count, "B").End(xlUp).Row) ' loop through all cells in Column B
        MatchRow = Application.Match(cl.Value, Rng, 0) ' find match with values in Colummn C as in "DRG" sheet
        If Not IsError(MatchRow) Then ' <-- successful match

            Select Case Sheets("DRG").Range("D" & MatchRow + 1).Value 'Set D as the cell whch has the value
                Case "Approved"
                    .Range("O" & cl.Row).Value = "Pass"

                Case "Pended"
                    .Range("O" & cl.Row).Value = "Fail"

                 Case "In progress"
                    .Range("O" & cl.Row).Value = "In progress"
             End Select
         End If
     Next cl
End With

结束子

【问题讨论】：

你有一些测试数据吗？
如果需要，我可以创建一个并将其上传到任何第三方网站。

标签： vba excel merge

【解决方案1】：

只需添加：

If Not Sheets("DRG").Range("E" & MatchRow + 1).Value = vbNullString Then .Range("P" & cl.row).Value = Range("P" & cl.row).Value & IIf(Not Range("P" & cl.row).Value = vbNullString, ";", "") & Sheets("DRG").Range("E" & MatchRow + 1).Value

如下

Sub PassFailValidation()

    Dim Rng As Range, cl As Range
    Dim LastRow As Long, MatchRow As Variant

    With Sheets("DRG")
        LastRow = .Cells(.Rows.Count, "C").End(xlUp).row '<-- find last row with data in column C
        Set Rng = .Range("C2:C" & LastRow) '<-- set range in Column C
    End With

    With Sheets("Latency")
        For Each cl In .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).row) ' loop through all cells in Column B
            MatchRow = Application.Match(cl.Value, Rng, 0) ' find match with values in Colummn C as in "DRG" sheet
            If Not IsError(MatchRow) Then ' <-- successful match
                Select Case Sheets("DRG").Range("D" & MatchRow + 1).Value 'Set D as the cell whch has the value
                    Case "Approved"
                        .Range("O" & cl.row).Value = "Pass"

                    Case "Pended"
                        .Range("O" & cl.row).Value = "Fail"

                     Case "In progress"
                        .Range("O" & cl.row).Value = "In progress"
                 End Select
                If Not Sheets("DRG").Range("E" & MatchRow + 1).Value = vbNullString Then .Range("P" & cl.row).Value = .Range("P" & cl.row).Value & IIf(Not .Range("P" & cl.row).Value = vbNullString, ";", "") & Sheets("DRG").Range("E" & MatchRow + 1).Value
             End If
         Next cl
    End With

End Sub

【讨论】：

这太棒了！！！还有一件事，“;”即使在空单元格中也会添加，而只有在存在现有文本时才应添加...如何更改？
一个愚蠢的疑问，我将此子分配给一个按钮，当我通过按钮运行它时，合并不起作用......但是当我在“延迟”表中运行时它通过VBA编辑器代码工作..我如何使代码通过按钮运行？工作目录应该被声明为“延迟”吗？ @user3598756

【解决方案2】：

我相信这个问题会吸引一些很棒的 VBA 编码答案。但是，可以使用数据库引擎技术来解决这类问题。初学者请看这里https://support.microsoft.com/en-gb/help/278973/excelado-demonstrates-how-to-use-ado-to-read-and-write-data-in-excel-workbooks

【讨论】：