Frage : Kopie und Pastendaten, wenn Sie zusammengepaßt werden.

Hallo möchten Experten,

I Expertenhilfe fordern, um einen Index zu schreiben, zu dem ist, Zeit (Column_A) zu kontrollieren versöhnen innen Blatt mit Zeit (Column_B) im Systems-Blatt. Wenn Sie zusammengepaßt, die zusammengebrachten Reihendaten von Column_B und von C (Systemsblatt) kopieren und sie an kleben versöhnen Blatt (Notwendigkeit, der Zeitreihenfolge zu folgen).

I kopiert manuell wenige Daten, damit Experten bessere Ansicht erhalten. Hoffnung-Experten können mir helfen, dieses feature.


zu verursachen

Attachments:

CopyPasteRow.xls (151 KBS)  (Akten-Art Details)  

xls

Antwort : Kopie und Pastendaten, wenn Sie zusammengepaßt werden.

Sure

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:

Vorüberprüfung () Application.ScreenUpdating = falsch Schwaches r als Strecke Schwaches WS als Arbeitsblatt Einstellen WS = Arbeitsblätter („versöhnen“) Einstellen r = WS. Strecke („B5“, WS. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1) r.FormulaR1C1 = „=IF (ISNA (VLOOKUP (RC [- 1], System! C: C, 1, FALSCHES)), """", VLOOKUP (RC [- 1], System! C: C, 1, FALSCHES))“ r.Offset (, 1).FormulaR1C1 = „=IF (ISNA (VLOOKUP (RC [- 2], System! C [- 1]: C, 2, FALSCHES)), """", VLOOKUP (RC [- 2], System! C [- 1]: C, 2, FALSCHES))“ r.Resize (, 2).Copy Application.DisplayAlerts = falsch r.Resize (, xlPasteValues 2).PasteSpecial Application.CutCopyMode = falsch Einstellen r = WS. Strecke („B5“, WS. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1) r.EntireRow.RowHeight = 15 r.Resize (, 1).Offset (, -1) .SpecialCells (xlCellTypeBlanks) .EntireRow.Delete Application.DisplayAlerts = richten aus Application.ScreenUpdating = richten aus Enden-Unterseeboot