人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAについて質問です。

次のページにあるマクロを作ってください。
http://hatena88.web.fc2.com/hatena/index2.html
最初に正解された方に100ポイントを差し上げます。

下記に同じような質問をしております。
http://q.hatena.ne.jp/1190877964
こちらの回答2を修正する形でご回答いただいても結構です。

マクロはエクセルに貼り付ければ、すぐに使えるような状態でご回答お願いします。

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA エクセル ポイント マクロ 差し
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●100ポイント
Sub Macro1()
'
' Macro1 Macro
'

'検索用文字列 検索したい単語を増やす場合は、a(2) の 2を 増やしてください。
Dim a(2) As String
Dim f(2) As String


'検索したい文字列を セットします。 単語を 増やした場合は、追加してください。
a(1) = "hatena"
a(2) = "momonga"

'C列セット文字列
f(1) = "hatena"
f(2) = "mon"

For e = 1 To 65536
 c = Cells(e, 1)
 If c = "" Then Exit For
 For b = 1 To UBound(a)
 If InStr(c, a(b)) > 0 Then
 Cells(e, 2) = Trim(Left(c, InStr(c, a(b)) - 1))
 Cells(e, 3) = f(b)
 Exit For
 End If
 Next b
Next e
End Sub

C列は、キーとなる文字列以降かなと勘違いしてました。

◎質問者からの返答

再度のご回答ありがとうございます。

うまくいきました。


こちらこそわかりにくい質問で失礼しました。

また教えてください。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ