Excel - kopieren von text aus einer Zelle in die andere löschen, ohne den ursprünglichen Inhalt

Grundsätzlich habe ich die folgenden scenareo:

2 Spalten, mit 600 Zeilen von Daten.

Brauche ich zum kopieren der Daten aus Spalte 2 und Platz es am Ende wird der Inhalt in Spalte 1 für die gleichen Zeilen. Dies hätte zur Folge, Spalte 1 mit den ursprünglichen Inhalt sowie die zusätzlichen Inhalte der Spalte 2.

Jede information, wie ich dies tun kann, wird sehr geschätzt.

Vielen Dank im Voraus!

  • Nicht klar, was du damit meinst "für den gleichen Zeilen."
  • Außerdem wird die neue Spalte 1 600 Zeilen oder 1200 Zeilen?
  • stackoverflow.com/questions/31076232/... finden Sie die Lösung, die ich gepostet dort.
InformationsquelleAutor bs3ac | 2013-04-08
  1. 0

    Hier ist ein VBA in eine einfache form. Einfach ein makro erstellen, fügen Sie diese Zeilen an Sie. Dann wählen Sie Ihre ursprünglichen Spalte (das, was Sie fordern Spalte 1), und führen Sie das makro.

    a = ActiveCell.Value
b = ActiveCell(1, 2).Value

ActiveCell.Value = a + b

    Klammern Zelle Referenz ist eine relative Aussage - 1, 2 bedeutet "gleiche Zeile, eine Spalte nach rechts", so dass Sie ändern können, wenn Sie benötigen. Sie konnte es Schleife durch den ausbau folgendermassen:

    Do
a = ActiveCell.Value
b = ActiveCell(1, 2).Value

ActiveCell.Value = a + b

ActiveCell.Offset(1, 0).Select

If ActiveCell.Value = "" Then
    Exit Do
End If
Loop

    Dass die Schleife tragen wird, bis er eine leere Zelle, dann werde es zu stoppen. So stellen Sie sicher, Sie haben eine leere Zelle, wo Sie wollen zu stoppen. Sie könnten auch zusätzliche Zeichen in der Zeile, die verbindet.. so im obigen Beispiel ist es ActiveCell.Value = a + b, aber man konnte es ActiveCell.Value = a + " - " + b oder irgendetwas anderes, das kann helfen.

    • Werk ein behandeln. Vielen Dank für Ihre Hilfe!
    InformationsquelleAutor David
  2. 0

    Diese sollten die Werte aus Spalte 2 und legen Sie Sie der Reihe nach unten in der Spalte 1.

    Sub test()
Dim rng1 As Range
Dim rng2 As Range
Dim cl As Range
Dim r As Long

Set rng1 = Range("A1", Range("A1048576").End(xlUp))
Set rng2 = Range("B1", Range("B1048576").End(xlUp))

r = rng1.Rows.Count + 1

For Each cl In rng2
    Cells(r, 1).Value = cl.Value
    r = r + 1
Next

End Sub
    InformationsquelleAutor David Zemens
  3. 0

    Nur halten Sie es einfach. Hier ist der code.

    Sub copyCol()
  Dim lastRow As Long
  lastRow = Range("A65000").End(xlUp).Row
  Range("B1:B" & lasrow).Copy Range("A" & lastRow).Offset(1, 0)
End Sub
    InformationsquelleAutor Santosh
  4. 0

    Da diese Frage erhielt eine Reihe von Ansichten (über 10.000) ich dachte, es war wichtig, auch zu teilen eine andere und viel einfachere Lösung:

    In Zelle C1 die Formel verwenden:

    =(A1 & B1)

    Dies wird kopieren Sie den Inhalt der Zelle A1 und B1 in Zelle C1. Ziehen Sie die Formel in alle anderen Zeilen (Zeile 600 in meinem Fall).

    Dann kopieren Sie die Spalte und fügen Sie über 'Werte'.

    Dann hast du die Zellen in Spalte C mit dem Inhalt von Spalte A und Spalte B in eine einzelne Zelle in einer Zeile-für-Zeile-basis.

    InformationsquelleAutor bs3ac
Schreibe einen Kommentar