5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 92

117 :複乳:2010/06/02(水) 08:00:01
>>115
その行程度ならそれでもいいと思うけど
Sub fukunyu()
Dim 行, saigo, i
行 = 10
'最終行は変数に入れる
saigo = Range("A65536").End(xlUp).Row + 1
'最初に全部コピーしてから
Range(Cells(saigo, 1), Cells(saigo, 6)).Value = Range(Cells(行, 8), Cells(行, 14)).Value
'マイナスに
For i = 4 To 7
Cells(saigo, i) = -Cells(saigo, i)
Next
End Sub
>>116
質問の意味がよく分からない
削減じゃなくて削除と思うけど罫線がコピーされることはない
最初から入ってるんじゃないの

338 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)