[過去ログ]
Excel総合相談所 136 (1002レス)
Excel総合相談所 136 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
627: 名無しさん@そうだ選挙にいこう [sage] 2019/09/11(水) 13:03:06.47 シート"計算"のB1から最下行のCV列までコピーし、シート"累積"の最下行に貼り付ける。 最下行はシート「計算」・「累計」共にB〜CVまでのいずれかの最下行 このコードを教えてください。 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/627
637: 名無しさん@そうだ選挙にいこう [sage] 2019/09/11(水) 19:34:54.90 >>627 今日は調子いいから書いて上げる 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 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/637
646: 627 [sage] 2019/09/11(水) 21:51:33.89 >>637 ありがとうございます。 http://mevius.5ch.net/test/read.cgi/bsoft/1564217249/646
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.438s*