Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13 / 13005 ツリー ←次へ | 前へ→

【79105】文字が含まれていたら転記 マリモ 17/5/11(木) 16:43 質問[未読]
【79106】Re:文字が含まれていたら転記 β 17/5/11(木) 19:58 発言[未読]
【79107】Re:文字が含まれていたら転記 通りすがり 17/5/12(金) 1:06 発言[未読]
【79188】Re:文字が含まれていたら転記 unko 17/6/5(月) 15:26 回答[未読]
【79196】Re:文字が含まれていたら転記 通りすがり 17/6/11(日) 19:49 発言[未読]

【79105】文字が含まれていたら転記
質問  マリモ  - 17/5/11(木) 16:43 -

引用なし
パスワード
   Sheet1に
a1=りんごがすき
a2=ぶどうがきらい

Sheet2に
a1=種類 b1=重さ c1=地域
a2=りんご b2=500g c2=青森
a3=ぶどう b3=300g c3=山梨

上記のように書かれているとします。
Sheet1のA列には抽出したい文字が含まれており
Sheet2のA列の種類の文字が含まれていたら
種類、重さ、地域を紐付て表示したいのですが・・。

何かいい方法がございましたら
ご教示いただけるとありがたいです。 

【79106】Re:文字が含まれていたら転記
発言  β  - 17/5/11(木) 19:58 -

引用なし
パスワード
   ▼マリモ さん:

>種類、重さ、地域を紐付て表示したいのですが・・。

どのセルに、どのように表示するのですか?

>種類、重さ、地域を紐付て表示したいのですが・・。

たとえば りんごもぶどうもすき という文字列の場合、
何をどのように表示するのですか?

【79107】Re:文字が含まれていたら転記
発言  通りすがり  - 17/5/12(金) 1:06 -

引用なし
パスワード
   ここの板のポリシーに記載されている事柄です。

>もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください

【79188】Re:文字が含まれていたら転記
回答  unko  - 17/6/5(月) 15:26 -

引用なし
パスワード
   ▼マリモ さん:
如何ですか?

Sub 文字が含まれていたら転記()

Dim a As Long
Dim i As Long

For a = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To 3


If InStr(Cells(a, 1).Value, Worksheets("Sheet3").Cells(a, 1).Value) > 0 Then


Cells(a, i).Value = Worksheets("Sheet3").Cells(a, i).Value


End If

Next
Next

End Sub

【79196】Re:文字が含まれていたら転記
発言  通りすがり  - 17/6/11(日) 19:49 -

引用なし
パスワード
   ○koさんの回答は??です。

シートの指定が無い部分があるし、シート名が間違ってる部分もあります。
インデントもきちんとつけた方がいいです。

13 / 13005 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free