[[20200816181429]]　『VBA 列　掛け算』（ゆう）　ページの最後に飛ぶ

『VBA 列　掛け算』（ゆう）

VBAにR列の2行目以降から最終行まで-1倍の掛け算をしたいのですが、どのようにしたらよいでしょうか？

R列全てを掛け算は下記で出来たのですが、2行目以降からするにはどのようにしたらよいでしょうか？

Sub 掛け算()

　With Workbooks("テスト").Worksheets("テスト")

   　.Range("R:R").Value = .Evaluate("R:R*-1")
　End With

End Sub

＜使用 Excel：unknown、使用 OS：unknown ＞

 最終行はEnd(xlup)で取得できます。
https://www.sejuku.net/blog/28929#:~:text=Excel%20VBA%E3%81%A7%E6%9C%80%E7%B5%82%E8%A1%8C%E3%82%92%E5%8F%96%E5%BE%97%E3%81%99%E3%82%8B%E5%9F%BA%E6%9C%AC,-%E3%82%AD%E3%83%BC%E6%93%8D%E4%BD%9C%E3%81%A7&text=%E3%80%8CCtrl%20%2B%20%E2%86%93%E3%80%8D%E3%82%AD%E3%83%BC%E3%81%A7,%E3%81%93%E3%81%A8%E3%81%8C%E3%82%8F%E3%81%8B%E3%82%8A%E3%81%BE%E3%81%99%E3%81%AD%E3%80%82
 その場合、Evaluateより、形式を選択して張り付けで、
 -1を演算張り付けのほうが、コードをシンプルにできそうですが、いかがでしょうか？
http://kokoro.kir.jp/excel/paste-operation.html
（稲葉） 2020/08/16(日) 19:04

最大でも、1000行までとして

 .Range("R2:R1000").Value = .Evaluate("if(R2:R1000<>"""",R2:R1000*-1,"""")")

（マナ） 2020/08/16(日) 19:40

稲葉さん

ありがとうございます。
Evaluateより、形式を選択しての貼付け頭にありませんでした。
色々な方法があるのですね！

マナさん

ありがとうございます。
確かに10000行設定すればすべてカバーできます！
（ゆう） 2020/08/16(日) 20:34

コメント返信：

[ 一覧(最新更新順) ]

[[20200816181429]] 『VBA 列 掛け算』（ゆう） ページの最後に飛ぶ

[[20200816181429]]　『VBA 列　掛け算』（ゆう）　ページの最後に飛ぶ