如何根据行标题replace单元格的内容？

我需要search第1行（a1到dv1）中的每个单元格，以查找“doc2”在该行的后续单元格中跟随着“doc1”的实例。 然后，我需要将包含“doc1”的单元格下一行的内容与包含“doc2”的单元格的下一行之间的内容（用逗号分隔）进行连接，并replace单元格中的文本在包含“doc1”的单元格下面。

所以，例如，如果a1有“doc1”，b1有“doc2”，a2有“7”，b2有“8”，那么我需要把a2replace成“7,8”。

任何帮助将不胜感激。

谢谢，艾米

Answer 1

这里是VBA中的一个解决scheme – 您可以复制并粘贴到VBA中的新模块中（先备份电子表格），然后运行（使用F5）。 要快速到达VBA，请使用alt-F11。 我已将注释中的MSGBOX语句留在注释中。 而且，代码一直到DW1，所以它可以完成DV1。

Option Explicit Sub Doc1_Doc2_Merge() Dim CurrCol As Integer Dim CurrRow As Integer Dim NewValue As String Dim EndCol As String For CurrRow = 1 To 50 Step 2 '(assume 50 rows - skip 2 lines each time) CurrCol = 1 EndCol = "$DW$" & Trim(Str(CurrRow)) While Cells(CurrRow, CurrCol).Address <> EndCol 'MsgBox Cells(CurrRow, CurrCol).Address & " " & Cells(CurrRow, CurrCol).Value If InStr(Cells(CurrRow, CurrCol).Value, "doc1") > 0 Then ' look at next cell If InStr(Cells(CurrRow, CurrCol + 1).Value, "doc2") > 0 Then If Trim(Cells(CurrRow + 1, CurrCol + 1).Value) <> "" Then NewValue = Cells(CurrRow + 1, CurrCol).Value & "," & Cells(CurrRow + 1, CurrCol + 1) 'MsgBox "New Value is " & NewValue Cells(CurrRow + 1, CurrCol).Value = NewValue End If End If End If CurrCol = CurrCol + 1 Wend Next CurrRow End Sub 

这里是testing结果：