Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8094 / 13645 ツリー ←次へ | 前へ→

【35171】教えてください。 りん 06/2/22(水) 20:42 質問[未読]
【35177】Re:教えてください。 Statis 06/2/23(木) 9:16 回答[未読]
【35181】Re:教えてください。 Jaka 06/2/23(木) 12:47 回答[未読]

【35171】教えてください。
質問  りん  - 06/2/22(水) 20:42 -

引用なし
パスワード
   重複データを一行にまとめるものを作成
したいと考えていますが、そのような
事は可能でしょうか?

 A    B    C    D
1 りんご 12

2 バナナ 23

1 りんご     24   35

3 なし  2

上記のようなセルの値になっていますが
1のコードのりんごが重複していますが、
B列には数値が入っています。
この 「1 りんご」を一行で表示、かつ他列の数値も
取得し、

1 りんご 12   24   35

の様に一行で表示する事はできますでしょうか?

【35177】Re:教えてください。
回答  Statis  - 06/2/23(木) 9:16 -

引用なし
パスワード
   こんにちは

データを並び替えて良いのなら
こんな感じです。(データは1行目より)

Sub Macro1()

Dim i As Long

Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
For i = Range("A65536").End(xlUp).Row To 2 Step -1
  If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
   Cells(i, 1).EntireRow.Copy
   Cells(i - 1, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
   Cells(i, 1).EntireRow.Delete
  End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

【35181】Re:教えてください。
回答  Jaka  - 06/2/23(木) 12:47 -

引用なし
パスワード
   標準機能
データ → 統合 でできます。

8094 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free