最終印刷可能なセルエクセルVBA

Question

背景：
が列Aと非標準の記数と列Bを持って、私はボタンを押すことにより、選択したシートにその番号を入力しようとしています。 IE：

列A ..........列B
てMySheet .................. 2

問題：それがあるので、
私は注意してくださいそこに数

を貼り付けるために、最後の印刷可能なセルのアドレスを取得する方法について確認していない、フッターが機能しませんこのよう-itはユーザーneeds-彼女/彼のために指定されているとして、それはフッターの10可能性がシーケンスに従うが、利用者は15

アプローチとして、それを望んでいない：
あなたがかもしれ-asは何もありませんそのセル（画像内の文字と色は表示目的のみ）には、usedrange、last row、またはgo to specialが対応するのに役立つことがあります。
質問：
どうすればいいですか？

Sheets("MySheet").Range(LastPrintable.Address).value = 2 

Answer 1

これはうまくいくと思います。ちょっとした食べ物ですが、それは簡単に従うべきです。それを自由に整理してください：

Dim ws As Worksheet 
Dim printRange As Variant 
Dim lastCell As Range 

Set ws = Sheets("MySheet") 
printRange = Split(ws.PageSetup.PrintArea, ":") 
Set lastCell = Range(printRange(1)) 

「lastCell」に印刷可能領域の最後のセルが含まれるようになりました。

lastCell.Value2 = 2 

それはRangeオブジェクトなので、あなたが合うように、あなたもそれから行、列、などを得ることができます。