![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Sub test()
Dim 行1 As Long, 最終行 As Long, 行2 As Long
Sheets("Sheet2").Cells.ClearContents
Sheets("Sheet1").Activate
最終行 = Range("C65536").End(xlUp).Row
行2 = 1
For 行1 = 1 To 最終行
Sheets("Sheet2").Cells(行2, 1).Resize(1, 3) = Range(Cells(行1, 1), Cells(行1, 3)).Value
Sheets("Sheet2").Cells(行2, 3).Value = Abs(Sheets("Sheet2").Cells(行2, 3).Value)
If Range("A" & 行1).Value = "BBBB1" Then
Sheets("Sheet2").Range("A" & 行2) = Range("A" & 行1) & "-1"
Sheets("Sheet2").Cells(行2 + 1, 1).Resize(1, 3) = Range(Cells(行1, 1), Cells(行1, 3)).Value
Sheets("Sheet2").Range("A" & 行2 + 1) = Range("A" & 行1) & "-2"
行2 = 行2 + 1
End If
If Range("A" & 行1) = "" Then
行2 = 行2 - 1
Sheets("Sheet2").Range("C" & 行2) = Sheets("Sheet2").Range("C" & 行2) + Range("C" & 行1)
End If
行2 = 行2 + 1
Next 行1
End Sub
を編集したいのですが全然図りません
ご指導お願いします
元データ
AAAA5 9601 950
BBBB1 9660 150
ASAS9 9654 -50
AXCW5 9603 1375
以下の用にマクロで変換する用に出来たのですが
【1】
BBBB1だけではなくAAAA5も対処になったときの
追加方法です
元データは一切変更が出来ません
※フォントの変更も不可です
【2】
元データと変換後データがSheet1からSheet2になっていますが
Sheet1の元は範囲はA1~C400で変換後をSheet1E1~G400にしたいのです
AAAA5 9601 950
BBBB1-1 9660 150
BBBB1-2 9660 150
ASAS9 9654 50
AXCW5 9603 1375
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
オートフィルターの複数条件検...
-
マクロで最終行を取得してコピ...
-
VBAで入力の結果を他のセルに反...
-
Excel VBA オートフィルタの結...
-
エクセルで空白行を削除する ...
-
他の列の最終行をみて、データ...
-
【VBA】条件に一致しない行を削...
-
WPSOffice_マクロの有効化について
-
VBAで保存しないで閉じると空の...
-
エクセル ボタンに設定したマク...
-
Excel マクロの編集がグレーに...
-
エクセル関数>参照ファイル名...
-
【マクロ】マクロボタンをクリ...
-
エクセルで作られた?マクロを...
-
エクセルVBAで作成した別ブック...
-
ブックを開いたとき自動的にバ...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
-
ExcelVBAでShowDatasFormがエラ...
-
複数のマクロボタンをまとめて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
【VBA】条件に一致しない行を削...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
列から特定の文字列検索→該当以...
-
Excel97 指定した行だけマク...
-
エクセルで階層図を作る方法
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
EXCEL VBAでA列にある空白行よ...
-
マクロにて指定の文字間の文字...
-
エクセルのVBAで指定した行数の...
-
Access2003レポート:最終ペー...
-
VBAで特定の行と一つ上の行を削...
-
各個体に対する平均値の自動計...
-
Excel マクロ 検索結果を別シ...
おすすめ情報