No.4ベストアンサー
- 回答日時:
こんばんは!
VBAでの一例です。
「テキストデータ」はH21セルにコピー&ペーストするとします。
尚、画像の行のB・C列の区切りは全角スペースが入っているという前提です。
Sub Sample1()
Dim k As Long, myStr As String, myAry
myAry = Split(Range("H21"), vbLf) '//←H21セルはテキストデータを貼り付けるセル番地//
For k = 0 To UBound(myAry)
myStr = myAry(k)
With Cells(24 + k, "B")
.Value = Left(myStr, InStr(myStr, " ") - 1) '//←ダブルクォーテーションの間は全角スペース//
.Offset(, 1) = Mid(myStr, InStr(myStr, " ") + 1, Len(myStr)) '//←同上//
End With
Next k
End Sub
※ 元データセル(コード内の H21 )は実際のセル番地に合わせてください。
こんな感じではどうでしょうか?m(_ _)m
No.3
- 回答日時:
こんにちは
>画像内のセルB24・B25・B26の項目は、
>初めから入力されているというパターンでも
>いいです
VBAの方が簡単な気もしますが、関数でやってみました。
関数の場合、テキストボックスの値を直接参照できませんので、以下の準備が必要です。
<準備>
・テキストボックスは、ActiveXのテキストボックスを利用し、
・見えなくなるセルにリンクさせておく。
(添付図では、わざとずらしてありますが、H25にリンクしてあります)
・複数行対応にして、改行表示が効くようにしておく。
※ B列の文字は先に入力されているものとしています。
添付図では、C24セルに
=TRIM(SUBSTITUTE(MID($H$25,FIND(B24,$H$25)+LEN(B24),IF(ROW()=26,LEN($H$25)+1,FIND(B25,$H$25))-FIND(B24,$H$25)-LEN(B24)),CHAR(10),""))
の式を入力して、下方にフィルコピーしています。
※ エラー処理はしていませんので、B列の文字列がテキストに含まれていない場合はエラー表示になります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
はがきについて。
-
エクセル 文字を増やしたい。
-
セルの内容表示が邪魔になる
-
Microsoft365に変えたのですが...
-
エクセルの計算
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
Excel ピボットテーブルで日付...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
Excelのチェックボックスの使い...
-
エクセル 白黒印刷で白線を印刷...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報