Excel VBA質問箱 IV

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

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


14566 / 76734 ←次へ | 前へ→

【67657】Re:AとBを比べて一致したら返す
回答  UO3  - 10/12/21(火) 16:24 -

引用なし
パスワード
   ▼ののか さん:

サンプルです。

Sub Sample1()
'A.xls の シート A の B列の値がある最終行を求める。
'1行目から下に空白行がない場合のみ。
 Dim z As Long
 With Workbooks("A.xls").Sheets("A")
  z = .Range("B1").End(xlDown).Row
  MsgBox "最終行は" & z & "行目です"
 End With
End Sub

Sub Sample2()
'A.xls の シート A の B列の値がある最終行を求める。
'間に空白行があった場合もOK。
 Dim z As Long
 With Workbooks("A.xls").Sheets("A")
  z = .Range("B" & .Rows.Count).End(xlUp).Row
  MsgBox "最終行は" & z & "行目です"
 End With

End Sub

3 hits

【67637】AとBを比べて一致したら返す ののか 10/12/20(月) 17:37 質問
【67640】Re:AとBを比べて一致したら返す UO3 10/12/20(月) 20:28 回答
【67651】Re:AとBを比べて一致したら返す ののか 10/12/21(火) 9:36 お礼
【67657】Re:AとBを比べて一致したら返す UO3 10/12/21(火) 16:24 回答
【67658】Re:AとBを比べて一致したら返す ののか 10/12/21(火) 16:43 お礼
【67652】Re:AとBを比べて一致したら返す Hirofumi 10/12/21(火) 9:40 回答
【67653】Re:AとBを比べて一致したら返す ののか 10/12/21(火) 10:07 お礼

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