VBA 同一シート内での転記の仕方

添付画像 右側の図 を 左側の図になるようにVBAで転記したいです。
C列はH列に転記、D列はJ列、E列はL列　となるように転記したいのですが、
イレギュラーな箇所があり、
セルC6、D10、D11のはじめに「A」がつくセルのみ次の列に転記したいです。
VBA勉強中の為、「A」のつくセルだけ次の列に転記することができず…。
ご教授いただければと思っております。
よろしくおねがいします。

質問者からの補足コメント

• 間違えました。
  左の図から右の図です。

    補足日時：2024/03/05 15:59

No.2 回答者： tatsumaru77 回答日時： 2024/03/05 17:14

以下のようにしてください。

（一例です）

Option Explicit

Public Sub 同一シート内転記()
Range("H2:H5").Value = Range("C2:C5").Value
If Left(Range("C6").Value, 1) = "A" Then
Range("I6").Value = Range("C6").Value
End If
Range("J7:J9").Value = Range("D7:D9").Value
If Left(Range("D10").Value, 1) = "A" Then
Range("K10").Value = Range("D10").Value
End If
If Left(Range("D11").Value, 1) = "A" Then
Range("K11").Value = Range("D11").Value
End If
Range("L12:L13").Value = Range("E12:E13").Value
End Sub

この回答へのお礼

回答いただきありがとうございます。
例を参考にマクロを作成し、思うように表の転記ができるようになりました。
今回の回答も大変勉強になりました。
ありがとうごさいます。

お礼日時：2024/03/08 14:41

No.1 回答者： fujillin 回答日時： 2024/03/05 15:09

こんにちは

＞右側の図 を 左側の図になるようにVBAで転記したい～
文章を読むと、「左側の図を右側になるように転記」ではないのかなぁ？？
よくわからんけれど・・

＞VBA勉強中の為、「A」のつくセルだけ次の列に転記することができず…。
そのまま転記することはできているのなら、転記する前に一文字目が「A」か否かをチェックして、転記先を決めれば良いのではないでしょうか？

現状がどのようなコードになっているのか不明ですけれど、「左→右への転記」でよいとするなら、
・転記元セル：sourceRange
・通常の転記先セル：destRange
となっているとして、

destRange.Offset(, -(Left(sourceRange.Text, 1) = "A") * 1).Value = _
sourceRange.Value

みたいな感じで、転記してゆけばよいのではないでしょうか？

この回答へのお礼

お礼遅くなりすみません。
今回の質問の件では使わなかったのですが、別で横に転記したいところがあったので参考にさせて頂きました。回答してくださりありがとうございました。

お礼日時：2024/03/08 14:32