こんにちは。いつもお世話になっております。
VBAについて教えてください。
まだまだ、勉強中で検索をしたのですが、真似できるようなコードが自力で見つけることが出来ませんでした。
ご教授頂けると嬉しいです。
B1にCSVのカンマ区切りの文字が入力されているのですが
カンマがあるところで
B2
B3
B4
と改行していきたいです。
例
B1 AAA,BBB,ccc,ddd
↓
B2 AAA
B3 BBB
B4 ccc
B5 ddd
また20シートくらい同じよう文字列が入っており全部のシートに対して一気に同じことをしたいです。
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
Option Explicit
Public Sub 全シートB1展開()
Dim i As Long
Dim j As Long
Dim ws As Worksheet
Dim str As Variant
For i = 1 To Worksheets.Count
Set ws = Worksheets(i)
str = Split(ws.Cells(1, "B").Value, ",")
For j = 0 To UBound(str)
ws.Cells(2 + j, "B").Value = str(j)
Next
Next
MsgBox ("完了")
End Sub
No.2
- 回答日時:
こんにちは
B2セル以降に何か入力されていても、上書きしてしまってよいのであれば・・
Set c = Range("B1")
If c.Value <> "" Then
v = Split(c.Text, ",")
c.Offset(1).Resize(UBound(v) + 1).Value = WorksheetFunction.Transpose(v)
End If
>全部のシートに対して一気に同じことをしたいです。
上記の変数 c のセル位置を対象のセルになるようにしてループさせれば、まとめて処理することが可能でしょう。
(どこのどんなシートのどのセルなのか、まったくわからないのでコードにはできません)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) カラム上の重複を削除するクエリを教えてください 3 2022/04/12 14:11
- Visual Basic(VBA) VBAで出力したCSVファイルの先頭にカンマを挿入したい 5 2022/10/14 12:20
- Excel(エクセル) ¥マークを含むパスの処理について(マクロ、または関数) 2 2022/12/25 02:11
- Visual Basic(VBA) 【VBA】複数行あるカンマ区切りのデータを全て縦に一列に並べたい 5 2022/04/13 17:03
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) vba 15 2023/04/07 12:33
- SQL Server ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。 17 2022/08/15 20:34
- Visual Basic(VBA) 【VBA】指定した検索条件に一致したら別シートに転記したい 2 2022/03/23 16:14
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) VBA初心者です 検索した数字の行に色をつける 5 2023/02/13 14:22
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルのマクロ、特定文字での改行について
Excel(エクセル)
-
VBAで文章を指定の文字数で改行コードを挿入したい
その他(Microsoft Office)
-
Excel セル内の最初と最後の改行を削除
Excel(エクセル)
-
-
4
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
5
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
6
ファイル名を今日の日付、時刻で保存する
Visual Basic(VBA)
-
7
【Excel VBA】データ貼り付け先のシート名選択
Excel(エクセル)
-
8
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
9
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
-
10
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
11
Excel、VBA、1行中複数セルにセル内改行、行方向に分割
Excel(エクセル)
-
12
VBA:カウンターの i の値が開放されなくて困っています。
Visual Basic(VBA)
-
13
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
14
エクセルでエラーが出て困っています。
Excel(エクセル)
-
15
エクセルマクロでシート名を条件にする方法
Excel(エクセル)
-
16
エクセルで決まった文字数で改行し,複数行の別のセルに移動させる方法
Excel(エクセル)
-
17
【VBA】テキストファイルを指定行数からの読み込み
Visual Basic(VBA)
-
18
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
19
スクロールバーをVBAで操作したい
Access(アクセス)
-
20
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
Excel マクロについての相談
-
別のシートを参照して計算する方法
-
エクセルのマクロについて教え...
-
ブック名、シート名を他のモジ...
-
VBA 最終行まで数式をコピーする
-
【ExcelVBA】全シートのセルの...
-
特定の文字を含むシートだけマ...
-
エクセルのマクロについて教え...
-
VBA 入力月で該当シートを選択...
-
一括印刷マクロ シート名を数字...
-
【ExcelVBA】動的にボタン、ボ...
-
VBA 存在しないシートを選...
-
同じ作業を複数のシートに実行...
-
ListViewの画面の更新
-
実行時エラー1004「Select メソ...
-
シートが保護されている状態で...
-
エクセルで通し番号を入れてチ...
-
【VBA】指定した検索条件に一致...
-
ユーザーフォームに入力したデ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
XL:BeforeDoubleClickが動かない
-
ExcelVBA シート名を複数セルか...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ブック名、シート名を他のモジ...
-
【Excel VBA】Worksheets().Act...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
特定の文字を含むシートだけマ...
-
シートが保護されている状態で...
-
Excel マクロについての相談
-
VBA 検索して一致したセル...
おすすめ情報
tatsumaru77さんありがとうございます。ご質問の補足となります。
しっかり確認したら
B1だけに文字が入っているシートがほとんどですが
稀にC1にも文字列が入っているものがありました。
B1がブランクというのは無く、必ずB1に文字列が入っております。
どうぞよろしくお願いいたします。