| |
こんにちは。かみちゃん です。
>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
で、範囲が１行下に余計な部分が選択されていることを確認してみてください。
|
|
かみちゃん
- 08/8/4(月) 21:52 -
