10/06/01 23:24:17
このような表があって、特定の行のG～L列の値をA列の最下行へコピペし、
D～Fまでの数値だけ符号を反転させるマクロの書き方についてです。
A B C D E F G H I J K L M N
10 AAA ああ 1 0.11 0.22 0.33 0.44 EEE うう 2 0.44 0.55 0.66 0.77
11 BBB いい 1 0.12 0.23 0.34 0.45 FFF ええ 1 0.45 0.56 0.67 0.78
12
13
例えば、行 = 10 のときは、こんな感じに。
A B C D E F G H I J K L M N
10 AAA ああ 1 0.11 0.22 0.33 0.44 EEE うう 2 0.44 0.55 0.66 0.77
11 BBB いい 1 0.12 0.23 0.34 0.45 FFF ええ 1 0.45 0.56 0.67 0.78
12 EEE うう 2 -0.44 -0.55 -0.66 -0.77
13
で、書いたのがこれです。もうちょっとスマートな書き方があれば教えてくだちい。
Range(Cells(行, 8), Cells(行, 10)).Copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)
Range("A65536").End(xlUp).Offset(0, 3).Value = Cells(行, 11).Value * -1
Range("A65536").End(xlUp).Offset(0, 4).Value = Cells(行, 12).Value * -1
Range("A65536").End(xlUp).Offset(0, 5).Value = Cells(行, 13).Value * -1
Range("A65536").End(xlUp).Offset(0, 6).Value = Cells(行, 14).Value * -1