Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5717 / 76732

←次へ　｜　前へ→


	【76622】Re:初心者でごめんなさい。

マナ - 15/2/14(土) 17:45 -


	引用なし

	パスワード

例えば、統合と並べ替えの機能で可能です。
マクロを使うまでもないと思いますが。

Option Explicit

Sub test()
　　Dim 統合先 As Range, 統合元 As Range

　　Set 統合先 = ActiveSheet.Columns("H:I")
　　Set 統合元 = ActiveSheet.Columns("E:F")

　　統合先.ClearContents
　　
　　With 統合先
　　　　.Consolidate _
　　　　　　Sources:=統合元.Address(ReferenceStyle:=xlR1C1), _
　　　　　　Function:=xlSum, _
　　　　　　TopRow:=False, _
　　　　　　LeftColumn:=True
　　End With
　　
　　With ActiveSheet.Sort.SortFields
　　　　.Clear
　　　　.Add Key:=統合先.Cells(1)
　　End With
　　With ActiveSheet.Sort
　　　　.SetRange 統合先
　　　　.Header = xlNo
　　　　.Apply
　　End With

End Sub

Sub test2()
'
　　Dim 統合先 As Range, 統合元 As Range

　　Set 統合先 = ActiveSheet.Columns("K:L")
　　Set 統合元 = ActiveSheet.Columns("E:F")

　　統合先.Columns(2).ClearContents
　　
　　With 統合先
　　　　.Consolidate _
　　　　　　Sources:=統合元.Address(ReferenceStyle:=xlR1C1), _
　　　　　　Function:=xlSum, _
　　　　　　TopRow:=False, _
　　　　　　LeftColumn:=True
　　End With
　　
End Sub

338 hits

▼

【76620】初心者でごめんなさい。 よぽん 15/2/14(土) 16:42