
こんにちは。いつもお世話になっております。
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルのマクロ、特定文字での改行について
Excel(エクセル)
-
VBAで文章を指定の文字数で改行コードを挿入したい
その他(Microsoft Office)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
特定の文字が入ってる行まで繰り返す
Excel(エクセル)
-
5
Excel VBA:特定の文字列以降(あるいは以前)のテキストをすべて取得する方法
Visual Basic(VBA)
-
6
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
7
【Excel VBA】 テキストファイルを、特定文字列で改行を入れてExcelに一行ずつ出力
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
ExcelのVBAでGoToの代わりに…
Excel(エクセル)
-
10
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
11
エクセルで決まった文字数で改行し,複数行の別のセルに移動させる方法
Excel(エクセル)
-
12
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
13
エクセルVBAでセル内の特定文字列を太字に
その他(Microsoft Office)
-
14
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
15
VBAで特定の文字を探して隣のセルに色を付けたい
Excel(エクセル)
-
16
Excel vbaで特定の文字以外が入っている時、メッセージを表示させるプログラムについて
Visual Basic(VBA)
-
17
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
18
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
19
マクロボタンを押すと、ファイル名を“日付(年月日)_文字.xlsx”にして指定ファイルに保存したいの
Excel(エクセル)
-
20
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー1004「Select メソ...
-
同じ作業を複数のシートに実行...
-
特定の文字を含むシートだけマ...
-
シートが保護されている状態で...
-
Access エクセルシート名変更
-
【Excel VBA】Worksheets().Act...
-
IFステートの中にWithステート...
-
Excelマクロのエラーを解決した...
-
ユーザーフォームに入力したデ...
-
実行時エラー'1004': WorkSheet...
-
Excel チェックボックスにチェ...
-
XL:BeforeDoubleClickが動かない
-
【エクセル】オプションボタン...
-
マクロを使って、シート印刷完...
-
VBA 検索して一致したセル...
-
エクセルのマクロで条件一致の...
-
Excelにて、シート間で、データ...
-
excelのマクロで該当処理できな...
-
別のシートから値を取得するとき
-
VBAで同じシート名のコピー時は...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
エクセルVBA Ifでシート名が合...
-
実行時エラー1004「Select メソ...
-
VBA 存在しないシートを選...
-
エクセルで通し番号を入れてチ...
-
VBA 検索して一致したセル...
-
XL:BeforeDoubleClickが動かない
-
VBA 指定した回数分、別シート...
-
VBAマクロでシートコピーした新...
-
シートが保護されている状態で...
-
ブック名、シート名を他のモジ...
-
【VBA】全ての複数シートから指...
-
別のシートから値を取得するとき
-
ExcelのVBAのマクロで他のシー...
-
Excel チェックボックスにチェ...
おすすめ情報
tatsumaru77さんありがとうございます。ご質問の補足となります。
しっかり確認したら
B1だけに文字が入っているシートがほとんどですが
稀にC1にも文字列が入っているものがありました。
B1がブランクというのは無く、必ずB1に文字列が入っております。
どうぞよろしくお願いいたします。