Excel-VBA-script zum verbinden von zwei Zellinhalte in eine

Sub Concat()

   Do While ActiveCell <> "" 

      'The rows are filtered to display only "London"
      'The changes required are for "London" only

      If ActiveCell.Offset(0,0) = "London" Then
        ActiveCell.Offset(0, 0).FormulaR1C1 = _
           ActiveCell.Offset(0, 0) & " " & ActiveCell.Offset(0, 1)

        ActiveCell.Offset(0, 1) = ""
      End If
      ActiveCell.Offset(1, 0).Select
   Loop

End Sub

Habe ich in der Nähe 13500 Zeilen.
Und das funktioniert nicht. Ich kann nicht sehen, keine spürbaren änderungen.

  • Ich habe nicht geschrieben alle. Ich weiß nicht, wo man anfangen soll. oder, wie.
  • Ich habe versucht, diese - Sub ConcatColumns() Do While ActiveCell <> "" 'Schleifen bis die aktive Zelle leer ist. "Die "&" muss ein Leerzeichen auf beiden Seiten oder es wird " behandelt wie eine variable Typ long integer. ActiveCell.Offset(0, 1).FormulaR1C1 = _ ActiveCell.Offset(0, -1) & "" & ActiveCell.Offset(0, 0) ActiveCell.Offset(1, 0).Wählen Sie " Loop End Sub
InformationsquelleAutor Selvam | 2013-02-15
  1. 1
    Sub Concat()

   Do While ActiveCell <> "" 

      With ActiveCell
         If .Value = "London" Then
             .Value = .Value & .Offset(0, 1).Value
             .Offset(0, 1).Value = ""
         End If
      End With

      ActiveCell.Offset(1, 0).Select

    Loop

End Sub
    • Hi Tim, das ist das werfen einer "loop ohne do" - Fehler. Trotz entfernen der zusätzlichen End If in deinem code.
    • können Sie es erneut versuchen?
    • Danke. Es arbeitete. Weiter auf dem gleichen, wenn die Zeilen brach durch filter, ohne die Verwendung einer VBA-Skript, kann ich füllen Sie alle aufgedeckten Zeilen mit einem "Wert", ohne den Inhalt der ausgeblendeten Zeilen?
    InformationsquelleAutor Tim Williams
  2. 0

    Schreiben Sie eine Schleife mit for each - Anweisung eine Schleife durch alle Zeilen des Arbeitsblatts die UsedRange. Für jede Zeile überprüfen, um zu sehen, ob der Wert in der ersten Spalte der Zeile ist "London", und wenn ja, überschreibt der Inhalt der Spalte mit der Kombination von column1 & column2.

    Dann kopieren Sie einfach den Wert von column3 in spalte2 und klar column3 ' s Wert mit ClearContents:

    Sub Concat()

    'Loop through all the rows
    For Each Row In ActiveSheet.UsedRange.Rows

    'Look at the cell in the first column of the current row
    'If value is "London" concatinate column 1 and 2 and store in column1
    'Note, the check for "London" is an exact, case sensative check!

        If Row.Columns(1) = "London" Then
            Row.Columns(1) = Row.Columns(1) & " " & Row.Columns(2)
            Row.Columns(2) = Row.Columns(3)
            Row.Columns(3).ClearContents
        End If
    Next Row
End Sub
    • danke für deine Lösung.
    InformationsquelleAutor Glenn Stevens
Schreibe einen Kommentar