Kopieren aus einer anderen Zelle mit einer Schleife

Question

Ich arbeite gerade daran, einige Zellenwerte aus einer Zeile in eine Spalte zu kopieren, aber es muss eine Bedingung erfüllen: Es sollte mindestens 1 E-Mail hinter der Spalte "E-Mails" sein,

ZB:

Name | First Name | Last Name |emails  |   | 
john doe|  john | doe  | 1@me.com |2@me.com |3@me.com 

Wo die "|" Begrenzt die Spalten meiner Tabelle.

Ich möchte jede E-Mails Trog gehen und sie in eine Zeile darunter zu kopieren, so dass ich drei Linien jeweils mit einer anderen E-Mail-Adresse, aber mit den gleichen Daten (Name, Vorname und Nachname)

ich verwende den folgenden Code, und doch ist es nicht überhaupt arbeiten:

col = 1 

    For i = 2 To lastrow 
    emailnumber = Application.WorksheetFunction.CountA(Range(Cells(i, Email + 1), Cells(i, lastcolumn))) 
    If emailcount > 0 Then 
    Cells(i + 1, Email) = Cells(i, Email + col) 
    col = col + 1 
    End If 
    Next i 

where: Email = 4 

Sie sind Hilfe wird sehr geschätzt!

Vielen Dank im Voraus!

Mit freundlichen Grüßen, Ionut Sanda

Answer 1

Dies sollte den Trick tun, alles, was Sie tun müssen, ist eine Art am Ende:

Sub test() 
    Dim rng1 As Range, rngMail As Range, lastRow As Long 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row 
    Set rng1 = Range("A2:C" & lastRow) 
    Set rngMail = Range("D2:D" & lastRow) 
    Union(rng1, rngMail.Offset(0, 1)).Copy Range("A" & lastRow + 1) 
    lastRow = Range("A" & Rows.Count).End(xlUp).Row 
    Union(rng1, rngMail.Offset(0, 2)).Copy Range("A" & lastRow + 1) 
End Sub