|
こんにちは。かみちゃん です。
>Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 14).Address
>Selection.Copy
>
>こちらを試させて頂いたのですが、.Addressのところで
>コンパイルエラーが出てしまいますどうしてでしょうか?
エラーメッセージは正確に書くようにしませんか?
そのエラーメッセージのとおりで、
私は、
MsgBox 〜.Address
と書いたはずです。
列範囲を表示したいなら、
MsgBox 〜.Address
などと記述しないといけませんし、
列範囲を選択(Select)したいならば、
Addressではなく、Select
とします。
なお、
Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 14).Select
Selection.Copy
は、
Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 14).Copy
とも書けます。
また、今回は、関係ないかもしれませんが、
> A列には空白はありません
とのことですが、
仮に、数式で結果が""となっているような場合は、Endプロパティでの最終行は
意図しない結果を得る場合があるので、注意が必要です。
仮に
A列の最終行の次の行に
=""
という数式を入れて、
MsgBox Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 14).Address
で、範囲が1行下に余計な部分が選択されていることを確認してみてください。
|
|