Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6056 / 76735 ←次へ | 前へ→

【76281】Re:usedrange
お礼  ふめい  - 14/10/24(金) 10:57 -

引用なし
パスワード
   わかりました。
丁寧な回答
ありがとうございます。


▼kanabun さん:
>▼ふめい さん:
>>With ABC 
>> lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
>>End With
>>
>>と
>>
>>With ABC.UsedRange
>> lastrow=.Rows(.Rows.Count).Row
>>End With
>>
>>
>>は同じですよね?
>
>(1)
>  Set ABC = ActiveSheet
>  With ABC
>    lastRow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
>  End With
>
>と
>(2)
>  Set ABC = ActiveSheet
>  With ABC.UsedRange
>    lastRow = .Rows(.Rows.Count).Row
>  End With
>
>と
>(3)
>  Set ABC = ActiveSheet
>  With ABC.UsedRange.Rows
>    lastRow = .Item(.Count).Row
>  End With
>
>は同じです。
>
>(2) できれば (3) を推奨。

0 hits

【76275】usedrange ふめい 14/10/23(木) 17:41 質問[未読]
【76277】Re:usedrange kanabun 14/10/23(木) 18:44 発言[未読]
【76281】Re:usedrange ふめい 14/10/24(金) 10:57 お礼[未読]

6056 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free