|
▼りん さん こんにちは
>下記のような表で、A1に"<CK3"と入力
>されている場合は、その下の行の
>E列に"CK30"、"<CK5”と入力されている場合は、
>E列に"CK50"と表示させたいのですが
>いくつかの条件があります。
>
>1.この表は行数が特定できません。
>2.この表には空白の行がいくつか存在します。
>
>--------------------------------
> A B C D E
>1<CK3
>2 品番 仕入先 数量 金額
>3 CBC 7005 1000 5000
>4 ATA 2001 2000 6000
>5 HPS 2003 3000 7000
>6
>7
>8<CK5
>9 HGC 2003 1000 5000
>10 HSJ 4003 2000 6000
>11 HBT 5003 3000 7000
>
>--------------------------------
>このような条件で、表示させることは
>可能でしょうか?
>もしわかれば教えてください。
>よろしくお願いします。
"<CK*"という文字列に"0"をつけただけですが・・
Sub test2()
Dim r As Long, N As Long
Dim acs As String, mj As String
acs = ActiveWorkbook.ActiveSheet.Name
N = Sheets(acs).Range("a" & Rows.Count).End(xlUp).Row
For r = 1 To N
If Cells(r, 1).Value Like "<CK*" = True Then
mj = Cells(r, 1).Text
Cells(r + 1, 5) = mj & "0"
End If
Next r
End Sub
こんなんでどうでしょうか?
まとはずれならごめんなさい。
|
|