画像ように、基本は文字列5桁が並んでいますが、中には"/"があるセルと無いセルが存在します。 例えば… A2セルに"/"がある場合 "/"より右側に「1文字」ある

画像

Excel | Visual Basic63閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

すごい!できました! ご教授いただきありがとうございました!

お礼日時:10/28 10:37

その他の回答(2件)

1

このプログラムは、”/"は文字列の頭から6文字に目に書き込まれている のが前提にしています。 転記先のシート名は「D1」のセルで指定します。(添付画像を参照) 行数は、その都度変わるとのことですので、そのようなことはないかと思いますが、10,000行まで対応するようにしています。 下記のプログラムで途中で空白が検出されればプログラムの実行は は停止しますので、行のデータの並びの途中で空白を設けないのが前提です。 途中で空白のセルがある可能性があるとのことならば、若干の手直しが必要です。 If Cells(n0, 1).Value = "" Then Exit For ElseIf 下記プログラムは、フォームコントロールのボタンを配置し、そのClickのプロシージャに書き込んでいます。 Sub ボタン3_Click() → コピー不要 With Worksheets(Cells(1, 4).Value) For n0 = 1 To 10000 If Cells(n0, 1).Value = "" Then Exit For ElseIf Cells(n0, 1).Value Like "*" & "/" & "*" = True Then .Cells(n0, 1).Value = Left(Cells(n0, 1).Value, 5) x0 = Len(Cells(n0, 1).Value) .Cells(n0, 1).Value = Left(Cells(n0, 1).Value, 5) .Cells(n0, 2).Value = Left(Cells(n0, 1).Value, 5 - (x0 - 6)) & Right(Cells(n0, 1).Value, x0 - 6) Else .Cells(n0, 1).Value = Cells(n0, 1).Value End If Next End With End Sub → コピー不要

画像

1人がナイス!しています