0

ブックに複数のシートがあります。すべてのシートのセル(A1)には、「(月)(年)のレポート」というテキストがまったく同じです。毎月、月と年の値のみが変更されます。例:2月の場合、テキストは「2013年2月のレポート」になります。1つのシートに変更を加え、同じ変更を残りのシートにコピーするにはどうすればよいですか?セルをコピーする方法は知っていますが、そうするとコードが長くなります。

4

1 に答える 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 に答える