参考元:【VBA】Rangeの行、列、行数、列数を取得【Row、Column、Countを使う】
https://daitaideit.com/vba-range/
ポイントとなるVBAコード
最初にポイントとなるVBAコードを記載しておきます。
VBAコードだけ確認したい場合に、ご活用ください。
'行数と列数
With ActiveSheet.Range("B3:E7")
Debug.Print .Rows.Count '行数
Debug.Print .Columns.Count '列数
End With
'行番号と列番号
With ActiveSheet.Range("B3:E7")
Debug.Print .Row '最初の行番号
Debug.Print .Rows(.Rows.Count).Row '最後の行番号
Debug.Print .Column '最初の列番号
Debug.Print .Columns(.Columns.Count).Column '最後の列番号
End With
'値
With ActiveSheet.Range("B3:E7")
.Cells(1, 1).Select '左上の値
.Cells(1, .Columns.Count).Select '右上の値
.Cells(.Rows.Count, 1).Select '左下の値
.Cells(.Rows.Count, .Columns.Count).Select '右下の値
.Cells(.Count).Select '右下の値
End With
'行と列
With ActiveSheet.Range("B3:E7")
.Rows(1).Select '最初の行
.Rows(.Rows.Count).Select '最後の行
.Columns(1).Select '最初の列
.Columns(a.Columns.Count).Select '最後の列
End With
- 行数と列数を取得:
- 最初と最後の行番号:
- 最初と最後の列番号:
- セルの値を取得:
行的取得:
列を取得:
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· 阿里巴巴 QwQ-32B真的超越了 DeepSeek R-1吗?
· 【译】Visual Studio 中新的强大生产力特性
· 【设计模式】告别冗长if-else语句:使用策略模式优化代码结构
· 10年+ .NET Coder 心语 ── 封装的思维:从隐藏、稳定开始理解其本质意义