2202

VBA Range方面的問題二

 

錦子老師您好:

假設 Range("A5:A10") ,裡面分別有六個名詞,然後,有十張不同名稱的工作表。

想用複製方式分別讓十張工作表的六個名詞內容配置都一樣,怎麼寫比較好?謝謝!

【寫法】

Sub Text()

Range("A5:A10").Select

Selection.Copy

Sheets(Array("工作表2", "工作表3", "工作表4", "工作表5", "工作表6", "工作表7", "工作表8", "工作表9", "工作表10", "工作表11")).Select

Sheets("工作表2").Activate

Range("A5").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("工作表1").Select

End Sub

2202VBA Range方面的問題


arrow
arrow

    錦子老師 發表在 痞客邦 留言(0) 人氣()