Excel: eine einfache Do-Schleife zum Kopieren und Einfügen und Erstellen einer Tabelle

Ich möchte eine einfache (ich denke!) Do-Loop für Folgendes: Mein einfaches Programm funktioniert so, wie ich es möchte, aber ich denke, es gibt einen einfacheren Weg, da ich es 1000 Mal wiederholen möchte. Vielleicht mit einer Art Schleife? Do-Loop-oder sonst. Kurz gesagt möchte ich:

  1. kopiere den Inhalt von A1
  2. Fügen Sie sie in B1 ein
  3. Zelle C1 kopieren (es hat eine einfache Formel, die auf B1 wirkt)
  4. kopiere den 'Wert' (nur) von C1 in D1 (was eine Tabelle solcher sein wird Werte)

Ich möchte dies für A1 bis A1000 tun und eine Tabelle mit den Werten D1, D2, erhalten ..., D1000 (vielleicht als quadratischer Tisch). Die Zellen B1 und C1 bleiben fixiert.

Mein Programm ist unten: 

Sub PasteSpecial_Examples()

    Range("A1").Copy Range("B1")
    Range("C1").Copy
    Range("D1").PasteSpecial Paste:=xlPasteValues

    Range("A2").Copy Range("B1")
    Range("C1").Copy
    Range("D2").PasteSpecial Paste:=xlPasteValues

    Range("A3").Copy Range("B1")
    Range("C1").Copy
    Range("D3").PasteSpecial Paste:=xlPasteValues

    Range("A4").Copy Range("B1")
    Range("C1").Copy
    Range("D4").PasteSpecial Paste:=xlPasteValues


    Application.CutCopyMode = False

End Sub
Author: Mokubai, 2018-02-06
Source

1 answers

Sie wollen eine einfache Für...Next-Schleife:

Sub PasteSpecial_Examples()

  For i = 1 To 1000
    Range("A" & i).Copy Range("B1")
    Range("C1").Copy
    Range("D" & i).PasteSpecial Paste:=xlPasteValues
  Next i

  Application.CutCopyMode = False

End Sub
 1
Author: Mario J.,
Warning: date(): Invalid date.timezone value 'Europe/Kyiv', we selected the timezone 'UTC' for now. in /var/www/agent_stack/data/www/techietown.info/template/agent.layouts/content.php on line 61
2018-02-23 23:55:29