Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
次のように定義された範囲内の最後の列である列を見つける必要があります。
Set RngSource = ActiveWorkbook.ActiveSheet.UsedRange
アクティブセルで End(xlToRight) を使用します。