teratail
回答率
85.47%
質問するログイン新規登録
トップVBAに関する質問VBA　Columnsを使い列番号で複数列選択

編集履歴

回答編集履歴

2

コード内に誤字

2022/05/11 00:34

投稿

Usirow
Usirow

スコア364

test CHANGED
@@ -7,5 +7,5 @@
7
7
  Columns("G:I").Select
8
8
  Selection.AutoFill Destination:=Columns("G").Resize(, r), Type:=xlFillDefault
9
9
 
10
- ThisWorkSheet.PageSetup.PrintArea = CRange("A1:A" & Lastlow ).Resize(, r + 7).Address
10
+ ThisWorkSheet.PageSetup.PrintArea = Range("A1:A" & Lastlow ).Resize(, r + 7).Address
11
11
  ```

1

コードの内容を変更。

2022/05/10 04:32

投稿

Usirow
Usirow

スコア364

test CHANGED
@@ -1,4 +1,4 @@
1
- 最後のLastlowのみ言及がないため無視していますが、それ以外をかいつまむとこういうことなのかなと
1
+ 最後のLastlowが印刷範囲の行数指定なのかな、と勝手に予想していますが、こういうことなのかなと（コード内で唐突に出てくるので、他で値を指定しているものとしています）
2
2
 
3
3
  ```
4
4
  Sub　列をコピー()
@@ -7,5 +7,5 @@
7
7
  Columns("G:I").Select
8
8
  Selection.AutoFill Destination:=Columns("G").Resize(, r), Type:=xlFillDefault
9
9
 
10
- ThisWorkSheet.PageSetup.PrintArea = Columns("A").Resize(, r + 7).Address
10
+ ThisWorkSheet.PageSetup.PrintArea = CRange("A1:A" & Lastlow ).Resize(, r + 7).Address
11
11
  ```