|
▼りん さん たびたびです
>ひでさん、Jakaさんありがとうございます。
>ひでさんのご指摘通りに直すと、
>E列の一行目に"CK30"や"CK50"と表示
>されました。
>しかし....
>私の質問の仕方が悪かったのでしょうか、
>下の行にコピーされないのですが??
一つだけでよいと思ってました(^^;
>
>-------------------------------
> A B C D E
>1<CK3
>2 品番 仕入先 数量 金額
>3 CBC 7005 1000 5000 CK30
>4 ATA 2001 2000 6000
>5 HPS 2003 3000 7000
>6
>7
>8<CK5
>9 HGC 2003 1000 5000 CK50
>10 HSJ 4003 2000 6000
>11 HBT 5003 3000 7000
>
>--------------------------------
>上記のように上の行にだけ表示されます。
>これを品番が入力されている
>全ての行に表示させるには
>どうしたらよいのでしょうか?
これでどうでしょうか・・?
Sub test4()
Dim r As Long, N As Long, i 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 + 1, 8) = Right(mj, 3) & "0"
Cells(r + 1, 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
|
|