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

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

Excel総合相談所 97

896 :名無しさん@そうだ選挙にいこう:2011/08/03(水) 20:06:35.27
順番に書いてみると…
自分の中では分かりやすくしてみたつもりだが無駄に遠回りだったらごめん

Dim 下段の最下行 AS Integer
Dim 下段の最上行 AS Integer
Dim 上段の最下行 AS Integer

下段の最下行 = Cells(Rows.Count, 1).End(xlUp).Row
下段の最上行 = Cells(下段の最下行, 1).End(xlUp).Row
上段の最下行 = Cells(下段の最上行, 1).End(xlUp).Row

Range(Cells(1, 1), Cells(上段の最下行, 1)).Copy

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

read.cgi ver 05.01.03 2014/02/20 Code Monkey ★
FOX ★ DSO(Dynamic Shared Object)