close

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
    文章標籤
    range sheets select selection xlpastevalues skipblanks xlnone pastespecial sub transpose false activate vba paste operation copy array 配置
    全站熱搜
    創作者介紹
    創作者 錦子老師 的頭像
    錦子老師

    錦子老師

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

    E-mail轉寄