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

質問

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

回答No.5

mt2008

こんな感じですかね。
あとはご自身で手を加えて下さい。

Sub Sample()
　　Dim nRow, i
　　Sheets("Sheet3").Range("D:E,K:K,V:Y").Copy
　　With Sheets("Sheet1")
　　　　'Y列もSheet1にコピー（G列）
　　　　.Range("A1").PasteSpecial Paste:=xlPasteValues
　　　　nRow = .Cells(Rows.Count, 1).End(xlUp).Row 'データのある最終行
　　　　'最初にブランクを埋める（埋めるのは5行目から）
　　　　For i = 5 To nRow
　　　　　　If .Cells(i, 2) = "" Then .Cells(i, 2) = .Cells(i - 1, 2) 'B列
　　　　　　If .Cells(i, 4) = "" Then .Cells(i, 4) = .Cells(i - 1, 4) 'D列
　　　　Next i

　　　　'Y列（Sheet1のG列）のデータ分行を追加
　　　　For i = nRow To 4 Step -1
　　　　　　'Y列（Sheet1のG列）にデータがあるか
　　　　　　If .Cells(i, 7) <> "" Then
　　　　　　　　.Rows(i).Copy
　　　　　　　　.Rows(i).Insert
　　　　　　　　.Cells(i + 1, 3) = "―"
　　　　　　　　.Cells(i + 1, 6) = .Cells(i, 7)
　　　　　　　　.Cells(i + 1, 7) = "★"
　　　　　　End If
　　　　　　.Cells(i, 7) = "●"
　　　　Next i
　　End With
End Sub

補足

サンプルをありがとうございます。
ご意見をいただけませんか?

(1)
●は、Sheet3(変更前)Y列に値があるときだけSheet1(変更後)G列にコピーをしたいです。
Y列に値がないときはブランクにします。(混乱させて申し訳ございません。)
V列にはセル結合している箇所がいくつかあり、対象行のすべてのセルGにコピーできません。
↓定義を追加しましたがうまくいきません。
.Cells(i, 14).MergeCells = False 'G列のセル結合箇所の削除
出来る限るオリジナル書式を変更したくありません。

(2)
AM-AF列を追加しました。
AM-AF間のセル情報はコピーするだけでセルに値がなくても構いません。
Gの結果を最後列へ追加したいのですがうまくいきません。

-------

コード;

Option Explicit

Sub Sample()
Dim nRow, i

'Worksheets("バッチ帳票一覧（勘定系）").Range("D:E,K:K,V:Y").Copy
Worksheets("バッチ帳票一覧（勘定系）").Range("D:E,K:K,V:X,AF:AM,Y:Y").Copy
With Worksheets("編集後")
'Y列も"編集後"にコピー（G列）
.Range("A1").PasteSpecial Paste:=xlPasteValues
nRow = .Cells(Rows.Count, 1).End(xlUp).Row 'データのある最終行
'最初にブランクを埋める（埋めるのは5行目から）
For i = 5 To nRow
If .Cells(i, 2) = "" Then .Cells(i, 2) = .Cells(i - 1, 2) 'B列
If .Cells(i, 4) = "" Then .Cells(i, 4) = .Cells(i - 1, 4) 'D列
Next i

'Y列（"編集後"のG列）のデータ分行を追加
For i = nRow To 4 Step -1
'Y列（"編集後"のG列）にデータがあるか
If .Cells(i, 14) <> "" Then
.Rows(i).Copy
.Rows(i).Insert
.Cells(i + 1, 3) = "-"
.Cells(i + 1, 6) = .Cells(i, 14)
.Cells(i, 14).MergeCells = False
.Cells(i, 14) = "●"
.Cells(i + 1, 14) = "★"
End If
Next i
End With
End Sub