Verketten von Spalten D und C mit Makros

Könnten Sie bitte helfen in das verketten von Zellen mit Excel 2010 makro. Ich habe die Spalten A bis E. ich möchte zum verketten der Spalten D und C in Spalte F. Bitte beachten Sie, dass ich don T wissen, die genaue Anzahl der Zeilen in Spalte D und C, aber das makro soll aufhören zu verketten, wenn es keine Werte in den genannten Spalten. Beispiel:

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

....

Danke.

InformationsquelleAutor user2642842 | 2013-08-01

1

Ausprobieren, MSDN, er hat ein Beispiel für den Gang durch jede Zeile.

http://support.microsoft.com/kb/213477

Ihrer Beispiel:
```
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
```
- Guter Punkt. Notiert. Obwohl Sie haben genau das gemacht, was Sie sind, Benachrichtigen Sie mich über 😛
- tnx.ich habe versucht, diesen einen, aber ich weiß nicht, wie offset funktioniert. seine Schleife bis das Ende der Zeilen eventhough es wurde kein Wert.
- Wenn ich einige Zeit später an diesem Abend werde ich versuchen, und geben Sie eine bessere Erklärung. .offset offsets aus der derzeit ausgewählten Zeile ein. msdn.microsoft.com/en-us/library/office/...
- Obwohl es sollte beachtet werden, dass, wenn Sie planen, um Spalten hinzuzufügen, die in der Zukunft, würde dies überschreiben, und Sie sollten etwas ähnliches wie Manh Ly s cells(row, FINAL COLUMN INDEX HERE) = cells(row, FIRST HALF OF CONCAT INDEX) & " " & and cells(row, SECOND HALF OF CONCAT INDEX)
InformationsquelleAutor Elias

So etwas (ungetestet)

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

InformationsquelleAutor RLY

Sagen wir, dass u r in Tabelle1

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

Getestet

Danke Euch allen...Das makro ist bereits in Arbeit:)

InformationsquelleAutor Sathish K

0

Scheint ein guter job für eine Formel
```
Sub ConcatName()

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

End Sub
```
Die CurrentRegion-Eigenschaft ruft die blob-Daten rund um A1, erstreckt sich die F1 durch die Anzahl der Zeilen, fügt dann eine Formel, die verkettet.

InformationsquelleAutor Dick Kusleika
0

Die verketten-Funktion ist Recht einfach zu implementieren in einem Makro. Alles, was Sie tun, ist ein "& " zwischen Objekte, die Sie möchten, zu verketten. In Ihrem Fall ist, würde so Aussehen:
```
Range("F1").Value = Range("C1").Value & " " & Range("D1")
```
*Hinweis, dass ich einen Abstand zwischen den C1-und D1 Werte

Weiter sind Sie gehen zu müssen, um eine Schleife zur Iteration durch Ihre Daten. Es gibt mehrere gute Methoden für die Steuerung, bei der die Schleife Stoppt.

Methode #1

Ist die einfachste Methode, ist nicht zu befürchten, wenn das makro Stoppt. Dies kann in Ihrem Fall sein Verkettung von nichts mit nichts ergibt nichts.
```
loop
    Range("F1").Value = Range("C1").Value & " " & Range("D1")
next
```
Methode #2

Ende der Schleife, wenn eine angegebene Spalte läuft aus Daten. In Ihrem Fall könnte dies so Aussehen:
```
While(Range("A" & i).value <> "")
    Range("F1").Value = Range("C1").Value & " " & Range("D1")
    i = i + 1 
Wend
```
Methode #3

Excel hat eine Funktion (.count), wird wieder die Anzahl der Einträge in einer Spalte (funktioniert nicht richtig, wenn es Lücken gibt). Verwenden Sie den Wert zurückgeben, zusammen mit einer for-Schleife, um die Schleife zu stoppen, wenn es keine Daten mehr.

InformationsquelleAutor Nick

Diese kombinieren die Werte der Spalten C, D, F D D, C" unabhängig von der Spalte bis zur letzten verwendeten Zeile.

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

Ändern Sie können die Bedingung überprüfen, so dass es nicht erforderlich, sowohl gültige als text Spalten C und D miteinander zu verbinden.

Tipp: Sie können den Verweis auf die Spalte der Zelle mit lange Zahl - ausgehend von A=1.

InformationsquelleAutor PatricK

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.