Fügen Sie bestimmten Text in eine bestimmte Zelle ein

Question

Wie kopiere ich einen Wert aus Zelle A2 und füge ihn in die Zelle ein, die in Zelle A1 angegeben ist? Beispielsweise enthält A1 F3. Und A2 enthält 2. Ich möchte "2" in Zelle F3 schreiben

Answer 1

Dies kann mit dem folgenden Code erreicht werden:

Sheet1.Range(Sheet1.Range("A1").Value).Value = Sheet1.Range("A2").Value

Erläuterung

• Sheet1.Range("A1").Valueruft den Text in ab A1, daher: Sheet1.Range(Sheet1.Range("A1").Value).Valueruft den Text in der Zelle ab, auf die in verwiesen wird A1.
• Sheet1.Range("A2").Valuewird den Text in erhalten A2.
• Da .Valueeinstellbar ist, setzen wir den Wert der referenzierten Zelle auf den Text in A2.