ブックに複数のシートがあります。すべてのシートのセル(A1)には、「(月)(年)のレポート」というテキストがまったく同じです。毎月、月と年の値のみが変更されます。例:2月の場合、テキストは「2013年2月のレポート」になります。1つのシートに変更を加え、同じ変更を残りのシートにコピーするにはどうすればよいですか?セルをコピーする方法は知っていますが、そうするとコードが長くなります。
質問する
816 次
1 に答える
0
すべてのワークシートを簡単に反復できます
現在のシートに対してそれを行ったと仮定します
Sub copyAOne()
Dim ws As Worksheet
Dim newValue As Range
set newValue = ActiveSheet.Range("A1")
For Each ws In Worksheets
ws.Range("A1") = newValue
Next ws
**PS** Please provide the code you tried in your question, and see if we can optimize it as well
end sub
于 2013-02-05T10:36:36.267 に答える