No.1ベストアンサー
- 回答日時:
以下のマクロをVBE画面の標準モジュールにペーストしてください
Sub Macro3()
Dim idxR As Long, resF
Application.ScreenUpdating = False
For idxR = 1 To Range("a65536").End(xlUp).Row
With Cells(idxR, 1)
resF = Application.Find(Chr(10), .Value)
If IsNumeric(resF) Then
.Copy
.Offset(0, 1).Select
ActiveSheet.Paste
End If
End With
Next idxR
Range(Cells(1, 2), Cells(idxR, 2)).TextToColumns _
DataType:=xlDelimited, Other:=True, OtherChar:=Chr(10)
Application.ScreenUpdating = True
End Sub
No.2
- 回答日時:
こんな感じ?
Sub Test()
Dim r As Range
For Each r In Range("A1:A10")
i = InStr(1, r.Value, vbLf)
If i > 0 Then
r.Offset(0, 1).Value = Left(r.Value, i - 1)
r.Offset(0, 2).Value = Mid(r.Value, i + 1, Len(r.Value))
End If
Next r
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
AのセルとB行を比較して、一致...
-
[EXCEL]ボタン押す→時刻が表に...
-
結合されたセルをプルダウンの...
-
excel 小さすぎて見えないセル...
-
excelのデータで色つき行の抽出...
-
エクセル 上下で列幅を変えるには
-
エクセルのセルに指定画像(.jpg...
-
エクセル マクロ等を利用した各...
-
エクセル 時間の表示形式AM/PM...
-
サイズの違うセル 並べ変え
-
Excel グラフのプロットからデ...
-
エクセルで昨日までの日付デー...
-
アクティブになっている行をマ...
-
エクセル マクロで数値が変っ...
-
エクセルのマクロで意図しない...
-
Excelで非表示のセルをとばして...
-
EXCELで最後の行を固定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
[EXCEL]ボタン押す→時刻が表に...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
AのセルとB行を比較して、一致...
-
エクセル 上下で列幅を変えるには
-
Excel ウインドウ枠の固定をす...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
エクセル2016で時間を入力して...
-
excel 小さすぎて見えないセル...
-
EXCELで最後の行を固定
-
エクセルVBA 最終行を選んで並...
-
VBAで色の付いているセルの行削除
-
エクセルマクロで偶数行(又は...
-
エクセルのセルに指定画像(.jpg...
-
罫線の斜線を自動で引くマクロ
おすすめ情報