Excel 将来，这将覆盖它们，您应该使用类似于Manh-Ly的单元格（行，这里的最终列索引）=单元格（行，CONCAT索引的上半部分）和“&&和单元格（行，CONCAT索引的下半部分）谢谢大家…宏已经工作：）谢谢大家…宏已经工作：）我发现这对我遇到的类似问题非常有用

---

将来，这将覆盖它们，您应该使用类似于Manh-Ly的

单元格（行，这里的最终列索引）=单元格（行，CONCAT索引的上半部分）和“&&和单元格（行，CONCAT索引的下半部分）

谢谢大家…宏已经工作：）谢谢大家…宏已经工作：）我发现这对我遇到的类似问题非常有用。谢谢。您的代码是完美的，并且是泛型的，因为它考虑了for循环的正确条件。谢谢你…我发现这对我遇到的类似问题很有帮助。谢谢。您的代码是完美的，并且是泛型的，因为它考虑了for循环的正确条件。谢谢你。。。

A     B      C           D         E         F
0   Exist   Echalas    Gerald     25256    Gerald Echalas

Sub ConcatColumns()

Do While ActiveCell <> ""  'Loops until the active cell is blank.

  'The "&" must have a space on both sides or it will be
  'treated as a variable type of long integer.

  ActiveCell.Offset(0, 1).FormulaR1C1 = _
     ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)

  ActiveCell.Offset(1, 0).Select
Loop

End Sub

dim row as integer
row = 1
while(cells(row, 3) <> "" and cells(row, 4) <> "" 
    cells(row, 5) = cells(row, 3) & " " & and cells(row, 4) 
    row = row + 1
wend

Sub test()
Dim r As Range
Dim lr As Integer
With Sheets("Sheet1")
lr = .Range("C500000").End(xlUp).Row

For Each r In .Range("F2:F" & lr)

r.Value = r.Offset(0, -2).Value & " " & r.Offset(0, -3).Value

Next r

End With

End Sub

Sub ConcatName()

    With ActiveSheet
        .Range("F1").Resize(.Range("A1").CurrentRegion.Rows.Count, 1).FormulaR1C1 = "=RC[-2]&"" ""&RC[-3]"
    End With

End Sub

Range("F1").Value = Range("C1").Value & " " & Range("D1")

loop
    Range("F1").Value = Range("C1").Value & " " & Range("D1")
next

While(Range("A" & i).value <> "")
    Range("F1").Value = Range("C1").Value & " " & Range("D1")
    i = i + 1 
Wend

Sub CombineCols()
    Dim oWS As Worksheet, lLastRow As Long, r As Long

    Set oWS = ActiveSheet
    lLastRow = oWS.Cells.SpecialCells(xlLastCell).Row
    For r = 1 To lLastRow
        ' Combine if both C and D are not empty
        If Len(oWS.Cells(r, 3)) > 0 And Len(oWS.Cells(r, 4)) > 0 Then
            oWS.Cells(r, 6).Value = oWS.Cells(r, 4).Value & " " & oWS.Cells(r, 3).Value
        End If
    Next
End Sub