No.2ベストアンサー
- 回答日時:
以下のようにしてください。
B,C列の書式設定を意図的に文字列にしてあります。
Public Sub B列C列設定()
Dim maxrow As Long
Dim wrow As Long
maxrow = Cells(Rows.count, "A").End(xlUp).row
Columns("B:B").NumberFormatLocal = "@"
Columns("C:C").NumberFormatLocal = "@"
For wrow = 2 To maxrow
Cells(wrow, "B").Value = Left(Cells(wrow, "A").Value, 6)
Cells(wrow, "C").Value = Right(Cells(wrow, "A").Value, 2)
Next
End Sub
No.3
- 回答日時:
おはようございます
>VBAを使ったやり方も試してみたくなりご質問しました。
関数、手作業で処理が上手く出来ているのなら、先ずマクロの自動記録を使って試してみましょう。
出来上がったコードを基に内容を検討するような考え方を持つのが好ましいと思います。
やり方は色々
過去質問などから推測し、ご質問者様自身で作成可能と思われる
ご質問の手順での自動記録マクロ 改
Sub Macro1()
'
'
Range("B2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1], 6)"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-2],2)"
Range("B2:C2").Select
Selection.AutoFill Destination:=Range("B2:C" & Cells(Rows.Count, "A").End(xlUp).Row), Type:=xlFillDefault
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub
シート関数使用、ループ、コピー処理無し
Sub test()
With Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp))
.Offset(, 1).Resize(, 2).NumberFormatLocal = "G/標準"
.Offset(, 1).Formula = "=Left(A1, 6)"
.Offset(, 2).Formula = "=Right(A1,2)"
.Offset(, 1).Resize(, 2).NumberFormatLocal = "@"
.Offset(, 1).Resize(, 2).Value = .Offset(, 1).Resize(, 2).Value
End With
End Sub
No.1
- 回答日時:
こういうのでいいのかな?
Sub samplre()
Dim saigo As Long, i As Long
saigo = Cells(Rows.Count, 1).End(xlUp).Row
Debug.Print saigo
For i = 2 To saigo
Cells(i, 2) = Left(Cells(i, 1), 6)
Cells(i, 3) = Right(Cells(i, 1), 2)
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) 列を指定して値を左から5文字にそろえる 1 2022/06/10 20:28
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) Excelの文字列を数字に変換する方法について 6 2023/07/31 21:18
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) B列に、A列の数字が偶数の場合は1減算した数字、奇数の場合はそのまま数字を自動表示したい 4 2022/04/16 12:01
- Visual Basic(VBA) VBAで、特定の文字より後を削除して残った数値を文字列に変換と特定の文字より前も削除したい 3 2022/04/15 19:21
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
excel VBA 2つのシートの特定の列を比較して同じ値のセルがあったらその行を上書きしたい
Excel(エクセル)
-
【VBA】2つのシートの値を比較して条件一致したら、同じ行の隣の値を別ブックへ転記したいです。 VB
Visual Basic(VBA)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
VBAで配列の計算
Excel(エクセル)
-
5
【Excel VBA】 B列に特定の文字列があった場合にA列の値を変更する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Changeイベントでの複数セルの...
-
エクセル 2つの表の並べ替え
-
エクセルでフォームのチェック...
-
VBAを使って検索したセルをコピ...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
VBAコンボボックスで選択した値...
-
マクロ 最終列をコピーして最終...
-
VBA 値と一致した行の一部の列...
-
URLのリンク切れをマクロを使っ...
-
Excelで、あるセルの値に応じて...
-
VBAでのリスト不一致抽出について
-
マクロについて。S列の途中から...
-
エクセルVBA intersect colu...
-
VBマクロ 色の付いたセルを...
-
VBAを用いて条件付きの平均値、...
-
データグリッドビューの一番最...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Cellsのかっこの中はどっちが行...
-
VBAのコードを教えてください
-
VBAを使って検索したセルをコピ...
-
B列の最終行までA列をオート...
-
エクセルvbaについて
-
vba 2つの条件が一致したら...
-
Excelで、あるセルの値に応じて...
-
VBA UserFormからの転記で
-
VBAのFind関数で結合セルを検索...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
Changeイベントでの複数セルの...
-
エクセルVBAにて =A1=B1とすれ...
-
【VBA】2つのシートの値を比較...
-
データグリッドビューの一番最...
-
VBマクロ 色の付いたセルを...
-
VBAで指定範囲内の空白セルを左...
おすすめ情報