|
▼Jaka さん りんさん こんにちは。
>エラーになった行と、ひでさんが回答されたコードを良く見比べてみてください。
JaKaさんフォローありがとうございます!
すでにJaKaさんの回答で、りんさんもわかっていると思いますが念のために・・(^^;
>「引数の数が一致していません。または不正な
>プロパティを指定しています。」という
>エラーがでるのですが...。
↓
>N = Sheets(acs).Range("c" & Rows.Count).End
りんさんのコードを試してみました
この行でエラーになります。
私のは・・ ↓
N = Sheets(acs).Range("c" & Rows.Count).End(xlUp).Row
>また、"<CK3"は実際には間に
>空白をたくさん含む文字列なのですが、
>これがいけないのでしょうか??
上記エラーとは関係ないと思いますが・・
>If Cells(r, 3).Value Like "〈 CK*" = True Then
> "〈 CK" この空白数や記号は固定でしょうか?
"CK"のみで判断がつくのなら
If Cells(r, 3).Value Like "*CK*" = True Then
にしてみてはいかがでしょう。
|
|