VBA行列操作についてのご質問

質問

• VBAを使用して行列操作を行いたいですが、具体的な方法がわかりません。ワークシートの特定の範囲をコピーしたり、行数が一定でない場合のセルの値の変更を行いたいです。
• 具体的な操作内容として、指定した範囲のセルをコピーしようとするとエラーメッセージが表示され、セルの値の変更もうまく行えません。
• 行数が一定でない場合に、セルを挿入したり、セルの値を変更したりする方法がわかりません。最終行に行を追加したり、新しいワークブックにセルを作成する方法も知りたいです。

回答No.2

mt2008

(1)
> ↓を実行するとエラーメッセージ"インディクスが有効範囲内にありません。"が表示されます。
> 理由が分かりません。
>
> Worksheets("Sheet1").Range("A", "C").Copy

定義が違います。
Worksheets("Sheet1").Range("A:A,C:C").Copy

（2）
A列の全てって、104万8576行までですか？
以下の様なコードでA列を埋めるしかないと思います。
Sub Macro2()
　　For i = 2 To Rows.Count
　　　　If Range("A" & i) = "" Then Range("A" & i) = Range("A" & i - 1)
　　Next i
End Sub

本当に必要ですか？

（3）
> 最終行に行を追加したのですが定義が分かりません。

A列にデータがある最終行なら↓
nRow = Cells(Rows.Count, 1).End(xlUp).Row
Rows(nRow + 1).Insert Shift:=xlDown

（4）
> (3)で追加した最終行のセルCにはA列の直前値を挿入したいのですが定義が分かりません。

nRow = Cells(Rows.Count, 1).End(xlUp).Row
Rows(nRow + 1).Insert Shift:=xlDown
Range("C" & nRow + 1) = Range("A" & nRow)

(5)
> 追加した最終行の直前まではすべて●、最終行のセルには▲を挿入したいのですが定義が分かりません。

やりたいことが良く見えないですが、こういう事かな？
nRow = Cells(Rows.Count, 4).End(xlUp).Row
Range("D1:D" & (nRow - 1)) = "●"
Range("D" & nRow) = "▲"

もう少し、何をやりたいのか整理した方が良いように思われます。

補足

ありがとうございました。
実施したいことは、↓のような事です。
行数は一定ではありません。
教えていただいたループ回数、"For i = 2 To Rows.Count"ではオーバーフローでした。
ご意見をいただけませんか?
質問は赤字箇所です。

変更前(Sheet3);
(D列) (E列) (K列) (V列) 　(W列) (X列) (Y列)
1 ABC123 テーブル１ ABC456 テーブル２　ABC789 ABC000 テーブル４
2 ABC123 ABC456 ABC789 ABC000
3 ABC123 ABC456　テーブル３ ABC789 ABC000
4 ABC123 ABC456 ABC789 ABC000

変更後(Sheet1);
(A列) (B列) 　(C列) (D列) 　(E列) (F列) (G列)
1 ABC123 テーブル１ ABC456 テーブル２　ABC789 ABC000 ●
2 ABC123 テーブル１ ABC456 テーブル２ ABC789 ABC000 ●
3 ABC123 テーブル１ ABC456　 テーブル３ ABC789 ABC000　 ●
4 ABC123 テーブル１ ABC456 テーブル３ ABC789 ABC000 ●
5 ABC123 テーブル１ - 　 テーブル３ ABC789 テーブル４ ★　←　最終行追加

行数は一定ではありません。
教えていただいたループ回数、"For i = 2 To Rows.Count"ではオーバーフローでした。
ご意見をいただけませんか?
質問は＞箇所です。

Option Explicit

Dim i As Integer
Dim nRow As Integer

Sub prcCopyPasteColumns()

'D → A列
Worksheets("Sheet3").Range("D:D").Copy
Worksheets("Sheet1").Range("A:A").Insert
＞コピー元、コピー先の列番号が異なっていました。

'E → B列
Worksheets("Sheet3").Range("K:K").Copy
For i = 2 To Range("A65535").End(xlUp)
If Range("K" & i) = "" Then Range("K" & i) = Range("K" & i - 1)
Worksheets("Sheet1").Range("B:B").Insert
Next i
＞無現ループしてしまいます。

'K → C列
Worksheets("Sheet3").Range("K:K").Copy
For i = 2 To Range("A65535").End(xlUp)
If Range("K" & i) = "" Then Range("K" & i) = Range("K" & i - 1)
Worksheets("Sheet1").Range("C:C").Insert
Next i

'V → D列
Worksheets("Sheet3").Range("V:V").Copy
Worksheets("Sheet1").Range("D:D").Insert

'W → E列
Worksheets("Sheet3").Range("W:W").Copy
For i = 2 To Range("A65535").End(xlUp)
If Range("W" & i) = "" Then Range("W" & i) = Range("W" & i - 1)
Worksheets("Sheet1").Range("E:E").Insert
Next i

'X → F列
Worksheets("Sheet3").Range("X:X").Copy
Worksheets("Sheet1").Range("F:F").Insert

'最終行
nRow = Cells(Rows.Count, 1).End(xlUp).Row
Rows(nRow + 1).Insert Shift:=xlDown
Range("C" & nRow + 1) = "-" '"-" → Cセル
Worksheets("Sheet3").Range("Y:Y").Copy
Range("F" & nRow + 1) = Range("Y" & nRow).Insert 'Y直前値 → Fセル

'G列
nRow = Cells(Rows.Count, 4).End(xlUp).Row
Range("G1:G" & (nRow - 1)) = "●" '"最終行-1"まで
Range("G" & nRow) = "▲" '最終行

End Sub