Excel総合相談所 136 - 暇つぶし2ch

Excel総合相談所 136 ..

636:名無しさん＠そうだ選挙にいこう
19/09/11 19:23:39.49 .net
返答ありがとうございます！やってみますね！

637:名無しさん＠そうだ選挙にいこう
19/09/11 19:31:04.13 .net
エクセルのシートをスクロールしたら、途中からワードに変わっちゃうというのはどうでしょう?

638:名無しさん＠そうだ選挙にいこう
19/09/11 19:34:54.90 .net
>>628
今日は調子いいから書いて上げる
Sub foo()
'前処理
Set 計算シート = Sheets("計算")
Set 累積シート = Sheets("累積")
With 計算シート.UsedRange
計算シートMaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
With 累積シート.UsedRange
累積シートMaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
'コピー
計算シート.Activate
Range("B1:CV" & 計算シートMaxRow).Copy
'貼り付け
累積シート.Activate
Range("B" & 累積シートMaxRow + 1).Select
Selection.PasteSpecial
End Sub

639:631
19/09/11 19:36:30.55 .net
>>634
自分が参考にしているエクセル関数の解説本（2007まで対応）に載ってなかったので調べたら
Excel2016からの新機能なんですね。まだ2010、2013を使ってる方も多いかと思うのでみなさんご注意を。
参考サイト　URLﾘﾝｸ(dekiru.net)

640:名無しさん＠そうだ選挙にいこう
19/09/11 19:42:15.42 .net
>>630 がそもそもテンプレ使ってないから
回答者が、最新版前提で回答しても仕方ない

641:名無しさん＠そうだ選挙にいこう
19/09/11 19:48:10.27 .net
Excel2016も最新じゃないが

642:名無しさん＠そうだ選挙にいこう
19/09/11 20:06:38.89 .net
めっちゃあれそうなんでこの辺にしませう