Excel VBA質問箱 IV

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

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


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

2419 / 76734

←次へ　｜　前へ→


	【79958】Re:特定の文字列(6種)の最大値

マナ - 18/6/5(火) 19:09 -


	引用なし

	パスワード

▼chou さん：

>追加の質問をよろしいでしょうか。

理解しないまま、追加要望だしても
余計にわからなくなるだけだと思いますよ。

Sub test2()
　　Dim tbl As Range
　　Dim rng As Range
　　Dim constAreas As Areas
　　Dim blankAreas As Areas
　　Dim r As Range
　　Dim k As Long
　　Dim c As Range
　　
　　Columns(5).Insert
　　
　　Set tbl = Range("A1").CurrentRegion
　　tbl.Columns(5).FormulaR1C1 = "=rc[-2]&""_""&rc[-1]"
　　
　　Set rng = tbl.Columns(6)
　　Set constAreas = rng.SpecialCells(xlCellTypeConstants).Areas
　　Set blankAreas = rng.SpecialCells(xlCellTypeBlanks).Areas
　　
　　Set c = Range("Z1")　'どこか離れた場所を作業用に使用（統合先）
　
　　For Each r In constAreas
　　　　c.Consolidate r.Offset(, -1).Resize(, 2).Address(, , xlR1C1), xlSum, False, True
　　　　c.CurrentRegion.Sort c.Columns(2), xlDescending
　　　　k = k + 1
　　　　If c.Offset(, 1).Value = c.Offset(1, 1).Value Then
　　　　　　MsgBox blankAreas(k).Offset(, -5).Value & "の数字が同じです。"
　　　　Else
　　　　　　blankAreas(k).Offset(, -3).Resize(, 2).Value = Split(c.Value, "_")
　　　　End If
　　　c.CurrentRegion.ClearContents
　　Next
　　
　　Columns(5).Delete

End Sub

6 hits

▼

【79946】特定の文字列(6種)の最大値 chou 18/6/3(日) 23:49