| |
ひでさん回答ありがとうございます。
教えていただいた式を実際のデータに
あわせて加工してみたのですが、どうも
うまくいきません。
｢引数の数が一致していません。または不正な
プロパティを指定しています。｣という
エラーがでるのですが...。
ａ列は実際はｃ列なので a→c に変えています。
文字を表示させる行は実際にはH列なので、
５→８ に変えています。
また、"＜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
|
|
りん
- 03/7/14(月) 11:51 -
