Excel VBAについての質問です。
現在、split関数を使って、文字を分けているのですが、今のプログラムだと実行しても写真上みたいになってしまいます。写真下のようにするにはどうしたらいいでしょうか…
因みに今作っているプログラムはこんな感じです。
a = 2
Do
b = Split(Cells(a, 1),"B")
c = 0
For c = LBound(b) To UBound(b)
Cells(a, 2) = b(c)
Next c
a = a + 1
If Cells(a, 1) = ”” Then
Exit Do
End If
Loop
No.1
- 回答日時:
右左一文字ずつ分けたいなら、
right(Cells(a, 1),1)
left(Cells(a, 1),1)
等を使うとよいと思います。
split関数は、特定の文字で文字列を分けたいときに使います。
a = split("https://oshiete.goo.ne.jp/qa/11654524.html”,".")
などとすると、配列aに
a(0)="https://oshiete”
a(1)="goo"
a(2)="ne"
a(3)="jp/qa/11654524"
a(4)="html"
が格納されるって感じになります。
ShowMeHow様、回答ありがとうございます。
Light、leftでも考えてみたのですが、どう言う文でやれば成功するのか分からなくて…
No.2ベストアンサー
- 回答日時:
元の文字を消してしまうなら、、、
Do
strOrig=trim(cells(a,2))
cells(a,1) =left(strOrg,1)
cells(a,2) =right(strOrg,1)
a = a + 1
If Cells(a, 1) = ”” Then
Exit Do
End If
Loop
などとすればよいと思います。
一度やっちゃうと、元のデータがなくなっちゃうので、
ファイルコピーして試してみてください。
列を変えたいなら、
cells(a,2) =left(strOrg,1)
cells(a,3) =right(strOrg,1)
などとすればよいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA
-
Excelで、あるセルの値に応じて...
-
Excel UserForm の表示位置
-
VBAを使って検索したセルをコピ...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
B列の最終行までA列をオート...
-
エクセルVBA 配列からセルに「...
-
Cellsのかっこの中はどっちが行...
-
VBAマクロ実行時エラーの修正に...
-
エクセルの合計を自動で表示さ...
-
マクロのコマンドボタン《Activ...
-
VBA シートをコピーする際に Co...
-
マクロの「SaveAs」でエラーが...
-
エクセルで離れた列を選択して...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA 別ブックからの転記の高速...
-
【ExcelVBA】zip圧縮されたCSV...
-
エクセルVBAにて =A1=B1とすれ...
-
VBA 複数条件の分岐処理の上手...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA
-
Range("A1")⇔cells(1,1)の変換。
-
vba formulaの中での変数の扱い
-
AccessVBAから、Excelシート内...
-
VBA SUM関数に変数を入れた計算...
-
セルの値を足す
-
csv形式でも文字点滅可能でしょ...
-
エクセルで特定の文字列が入っ...
-
VBAマクロ実行時エラーの修正に...
-
マクロの「SaveAs」でエラーが...
-
VBA シートをコピーする際に Co...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで離れた列を選択して...
-
Worksheets メソッドは失敗しま...
-
VLOOKUPの列番号の最大は?
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
「段」と「行」の違いがよくわ...
-
Excel VBAでのWorksheet_Change...
おすすめ情報