|
ひでさん回答ありがとうございます。
教えていただいた式を実際のデータに
あわせて加工してみたのですが、どうも
うまくいきません。
「引数の数が一致していません。または不正な
プロパティを指定しています。」という
エラーがでるのですが...。
a列は実際はc列なので a→c に変えています。
文字を表示させる行は実際にはH列なので、
5→8 に変えています。
また、"<CK3"は実際には間に
空白をたくさん含む文字列なのですが、
これがいけないのでしょうか??
-------------------------------------
Sub test3()
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
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"
End If
Next r
End Sub
|
|