No.2
- 回答日時:
>画像内のセルB24・B25・B26の項目は、
初めから入力されているというパターンでも
いいです。
この場合なら、search関数、mid関数、len関数でできます。
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列の文字列がテキストに含まれていない場合はエラー表示になります。
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
お探しの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ランキング
-
Excelについて質問です。 ・デ...
-
Excel2010で、今の、Ex...
-
UNIQUE関数が使えないバージョ...
-
Excelについて質問です。
-
エクセルに詳しい方教えて下さ...
-
Excelで「時間の足し算」はどう...
-
Excelについて質問です。 表の...
-
オートフィルのショートカット...
-
Excel表の文字の幅を狭くしたい
-
勤務表をエクセルで作る際、 最...
-
Excelのフォントについて
-
Excel 2019 のピボットテーブル...
-
エクセルのパスワードの一括解...
-
エクセルのソートについて
-
Excel 連番を入力する方法
-
Excel 漢字二文字の先頭と最後 ...
-
列を増やさずに、月だけの件数...
-
Excelで、10000,20000,30000と...
-
エクセルの検索関数でシート内...
-
Excel 2019 での上書き保存につ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル詳しい方教えて下さい
-
ExcelでA列をコピーしたいので...
-
エクセルのセル統合について
-
Excelの関数で起きた現象の原因...
-
Excelファイルが閉じられい!
-
Excelのシート背景に不明な文字...
-
エクセルの枠線
-
Excel 領収書発行
-
エクセル関数の使い方を教えて...
-
C列にF列の担当者(A〜)を順番...
-
ピポットテーブルの参照元を別...
-
EXCEl VBA
-
Excelでの判別方法
-
VBAで、サブフォルダにある複数...
-
"りんご"と"みかん"というシー...
-
マクロについて教えてください。
-
EXCELファイルが読み取り専用で...
-
同一セルに入力規則のリストと...
-
100行50列の表で、1~40列でフ...
-
なぜか「Nextに対応するForがあ...
おすすめ情報