VBA初心者のため、大変悩んでおります・・・。
1列の表から特定の文字を探し、探し出した文字の下にある値の隣列にコピーペーストを実行したいと思っております。
ペーストする列はB列、又はC列のみです。
どうかご教授いただけますようお願いいたします。
| A | B | C |
|文字A| | |
| 商品 | | |
| 商品 | | |
| 商品 | | |
|文字B| | |
| 商品 | | |
| 商品 | | |
| 商品 | | |
↓↓
| A | B | C |
|文字A| | |
| 商品 |文字A| |
| 商品 |文字A| |
| 商品 |文字A| |
|文字B| | |
| 商品 | |文字B|
| 商品 | |文字B|
| 商品 | |文字B|
No.1ベストアンサー
- 回答日時:
質問の意味が分からなかったので、図を見て適当に作ってみました。
こんな感じでどうでしょう。
Sub sample()
Dim i As Long
Dim j As Long
Dim res As Variant
Dim moji As String
j = 1
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If TokuteiMoji(Cells(i, "A")) Then
moji = Cells(i, "A")
j = j + 1
Else
Cells(i, j) = moji
End If
Next i
End Sub
Function TokuteiMoji(a As String) As Boolean
Dim res As Variant
On Error Resume Next
res = WorksheetFunction.Match(a, Array("文字A", "文字B"), 0)
If Err.Number = 0 Then TokuteiMoji = True
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの書式設定の表示形式で設定した文字を文字列としてコピーしたい 1 2022/12/21 10:41
- Excel(エクセル) Excelの操作方法を教えてください!頭文字2~8文字で特定の値に返す方法 8 2022/07/14 11:26
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) エクセルの表について 3 2023/04/14 18:00
- その他(買い物・ショッピング) あるブランドの商品と思って定価の9割引 工場閉店のためセールと書いてたので注文 した後、 ブランドの 4 2022/06/03 07:09
- その他(健康・美容・ファッション) パイナップル豆乳ローションとか言った商品は本当に髭を薄くするんですか? 個人差によると小さな文字で書 1 2022/12/11 08:37
- Excel(エクセル) エクセルデーターの並び替え 5 2022/08/06 09:59
- 会社・職場 輸出について 2 2023/02/02 00:17
- 日用品・生活雑貨 こういう時計、どこで売っていますか? 3 2022/05/14 16:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1500文字程度というレポートが...
-
800字程度ってどくらいです...
-
「amp;」ってどういう意味?
-
Googleアカウントの作成がうま...
-
1600文字の8割って何文字ですか?
-
1000文字以上のレポートを出さ...
-
フランス語のjuillet 略す事は...
-
小論文の要約問題が150字程度っ...
-
伝言メモに赤い文字
-
論拠とはどのような意味ですか...
-
400字以上とは?どうゆうことで...
-
300字程度は308字になっても大...
-
課題で、A4用紙1〜2枚以内にま...
-
場合の数の問題
-
文字の上に横棒の意味
-
9文字の言葉
-
エクセルで*を文字として置換し...
-
正規表現で何文字目から何文字...
-
タテ組40文字詰めの意味を教...
-
800字以内だと何文字まで書...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
800字程度ってどくらいです...
-
「amp;」ってどういう意味?
-
文字の上に横棒の意味
-
Googleアカウントの作成がうま...
-
1500文字程度というレポートが...
-
小論文の要約問題が150字程度っ...
-
400字以上とは?どうゆうことで...
-
1600文字の8割って何文字ですか?
-
9文字の言葉
-
課題で、A4用紙1〜2枚以内にま...
-
1000文字以上のレポートを出さ...
-
エクセルで*を文字として置換し...
-
300字程度は308字になっても大...
-
ExcelVBAでBookを開く時にファ...
-
場合の数の問題
-
チャットGPTに2000文字と指定し...
-
VBA 変数にアスタリスクが含ん...
-
「会」の旧字体は「會」ですが...
-
神聖六文字っなんですか?
-
♡ͥ ♡ͦ ♡ͮ ♡ͤ̈↶ハートの上の小さ...
おすすめ情報