|
こんにちは。
以前この質問箱で質問して、下記のコードを使って、文字列を取得して
セルに入力するという方法を教えていただいたのですが、今までは
正常に使えていたコードが突然正常に働かなくなりました。
H列にCK30、CK50、CK70という文字を入力するためのコードなのですが、
下記のように一部だけH列が”0”を表示してしまうようになったのです。
元データは以前と変わらない様式なのですが、”0”と表示されてしまう
理由がどうしてもわかりません。
どこが悪いのか、もしくは疑わしい点があれば、教えていただきたいです。
よろしくお願いします。
-------------------------------------------------------------------------
Sub 部門コードの入力()
Dim r As Long, N As Long
Dim acs As String, mj As String
acs = ActiveWorkbook.ActiveSheet.Name
N = Sheets(acs).Range("C" & Rows.Count).End(xlUp).Row
i = 0
For r = 1 To N
If Cells(r, 3).Value Like "*CK*" = True Then
mj = Cells(r, 3).Text
Cells(r + 2, 8) = Right(mj, 3) & "0"
Cells(r + 2, 3).Offset(1).Select
Do While Cells(r + 1, 3).Offset(1 + i) <> ""
Cells(r + 1, 8).Offset(1 + i) = Right(mj, 3) & "0"
i = i + 1
Loop
i = 0
End If
Next r
End Sub
-----------------------------------------------------------------------
上のコードを使って作る表は下のような表です。
H列は元々は空欄で、何も入っていません。
このH列にC列のCK3や、CK5、CK7という文字と、”0”を組み合わせた
文字を入力するというコードです。
この表の行数は不特定で、間に空欄を含みます。
A B C D E F G H
〈 CK3 0 〉
区分1 区分2 品番 仕入先 単価 数量 金額
OLD HPS0001 7005 0.01 1000 10 CK30
OLD HSJ0002 6005 0.02 2000 40 CK30
OLD HGC0001 7005 0.01 1000 10 0
OLD HGC0002 6005 0.02 2000 40 0
〈 CK5 0 〉
OLD HPS0001 7005 0.01 1000 10 CK50
OLD HSJ0002 6005 0.02 2000 40 CK50
〈 CK7 0 〉
OLD HPS0001 7005 0.01 1000 10 CK70
OLD HSJ0002 6005 0.02 2000 40 CK70
--------------------------------------------------------------------------
以上のような内容ですが、理解できますでしょうか?
宜しくお願いします。
|
|