プロが教える店舗＆オフィスのセキュリティ対策術

おしえて

VBA教えてください！

解決済

  • 質問者：ノリえもん
  • 質問日時：
  • 回答数：1件

セルN列に文字列が入っています。 ”Ｊ注意” こんな感じ。
その１文字目が ”Ｊ”だったら、
セルM列に ”ＪＡＰＡＮ” と格納したいのですが、
実行エラーになってしまいます！

どうか助けてください！

Range("M2").Select
Selection = "=If ((LEFT(RC[1], 1) = ""Ｊ"",""ＪＡＰＡＮ"",""Ｏｔｈｅｒ"")"
Selection.AutoFill Destination:=Range("M2:M" & EOL)

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

参考程度に

No.1ベストアンサー

  • 回答者： fujillin
  • 回答日時：

こんにちは



式が整合していない部分を修正して、R1C1形式であることを明示すればよさそうです。

Range("M2").Resize(EOL - 1).FormulaR1C1 = "=IF(LEFT(RC[1],1)=""Ｊ"",""ＪＡＰＡＮ"",""Ｏｔｈｅｒ"")"

ただし、EOL>=2を満たさないとエラーになります。
    • good
    • 0
    • 件
通報する
この回答へのお礼

ありがとうございました。
見事にできました！

通報する
お礼日時：2022/01/07 09:28

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報