
こんなことは可能でしょうか?
同じ請求書内に含まれる情報をひとつの請求書列の横に並べて配置したいのですが。
関数を使って一括で変換できますか?
請求書 製品 価格 個数
aaa AAA 200 10
aaa BBB 400 10
aaa CCC 300 5
bbb AAA 100 50
bbb BBB 500 10
↓↓↓↓↓↓↓↓↓
請求書 製品 価格 個数 製品 価格 個数 製品 価格 個数
aaa AAA 200 10 BBB 400 10 CCC 300 5
bbb AAA 100 50 BBB 500 10
どうぞよろしくお願いします。
No.1ベストアンサー
- 回答日時:
過去に同様の質問が何度もありました。
例えば、http://okwave.jp/qa2287876.html
などです。
複雑な関数式は苦手なので、VBAで作ってみました。
使い方を含めて意味不明であれば無視してください。
Sub test()
Dim LastCol_1 As Long
Dim LastCol_r As Long
Dim LastCol_Max As Long
Dim LastRow_A As Long
Dim r As Long
LastCol_1 = Cells(1, Columns.Count).End(xlToLeft).Column
LastRow_A = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
'データの並べ替え
For r = LastRow_A To 3 Step -1
LastCol_r = Cells(r, Columns.Count).End(xlToLeft).Column
If Range("A" & r).Value = Range("A" & r - 1).Value Then
Range("A" & r).Resize(, LastCol_r - 1).Offset(, 1).Copy _
Destination:=Cells(r - 1, LastCol_1 + 1)
Rows(r).Delete
End If
Next r
'見出し行の編集
With ActiveSheet.UsedRange
LastCol_Max = .Cells(.Cells.Count).Column
End With
Range("A" & 1).Resize(, LastCol_1 - 1).Offset(, 1).Copy _
Destination:=Cells(1, LastCol_1 + 1).Resize(, LastCol_Max - LastCol_1)
Application.ScreenUpdating = True
End Sub
ka_na_deさん、どうもありがとうございました!
そのままコピペさせていただいたのですが、
まさに願っていた通りになりました。
6万近いボリュームを相手にしているので本当に助かりました。
本当に本当にありがとうございました。
(私ももう少し勉強してみようと思います)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAでGoToの代わりに…
-
AKB島崎遙香さんは なぜ「...
-
さっしーはマ○コ触らせていたの...
-
LE SSERAFIM
-
芸能人の活動
-
ラッツ&スターのメンバー構成...
-
ジミー・ペイジとジョン・ポー...
-
櫻坂についてです。 毎月グリー...
-
嵐の衣装で。
-
サザンのギタリスト脱退理由
-
貧乳のグラドルって人気は出る...
-
KーPOPで1番治安がいいグループ...
-
ザローリングストーンズのキー...
-
女性2人男性1人のバンドの曲...
-
イアン・ギランの声
-
ミュージシャン(ボーカル)はど...
-
ナオトインティライミ が生理...
-
東方神起を脱退した人達は何を...
-
皆さんは、“よろしこ”と言いま...
-
楽器演奏できる人に聞きます!U...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelのVBAでGoToの代わりに…
-
さっしーはマ○コ触らせていたの...
-
thunderbirdのメール設定について
-
島崎遥香、ぱるるのこの画像の...
-
AKB48のなかですごくこれはい...
-
山本彩ちゃんのグッズはどこで...
-
akb48の希望的リフレインの木崎...
-
超特急
-
今年のAKB48の総選挙 1位〜3位...
-
AKBの巨乳メンバー
-
AKBの薔薇の儀式について質問です
-
下ネタな質問です。 中高生の頃...
-
郵便局の振込み手数料土日は?
-
島崎遥香ことぱるるは何系の美...
-
AKB島崎遙香さんは なぜ「...
-
AppActivateの使い方
-
AKB48
-
「ハロー!プロジェクト2004夏...
-
この顔文字の文字の意味
-
HTML 横幅制限
おすすめ情報