Excel VBA質問箱 IV

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

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


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

13863 / 76807

←次へ　｜　前へ→


	【68446】Re:或るセルの値を他のセルの値にくっつけるには

kanabun - 11/3/8(火) 17:22 -


	引用なし

	パスワード

▼にしもりさん：
>まずNレコード目とN+1レコード目の#を比べ同じかをみます。（上記では#111が２個あります。）
>同じだったら
>そして（この場合、）３行目をDELETEします。
>なお、同じ#は２個とは限りませんが#昇順になっています。

行削除は下からやるのが定石です。
そして、1行化作業はシート上でやると思い処理になるので、
配列とかでやったほうが効率いいと思います。
以下は、非表示ComboBox1のリスト内で (重複)行削除するものです

Sub Try1()
　Dim r As Range
　Dim v
　Dim i As Long
　　Set r = Sheets(1).Cells(1).CurrentRegion
　　v = r.Value
　　With CreateObject("Forms.ComboBox.1")
　　　　.List = v
　　　　For i = .ListCount - 1 To 2 Step -1
　　　　　　If .List(i, 0) = .List(i - 1, 0) Then
　　　　　　　　.List(i - 1, 5) = .List(i - 1, 5) & vbLf & .List(i, 5)
　　　　　　　　.List(i - 1, 6) = .List(i - 1, 6) & vbLf & .List(i, 6)
　　　　　　　　.RemoveItem i
　　　　　　End If
　　　　Next
　　　　r.ClearContents
　　　　r.Resize(.ListCount, 13).Value = .List
　　End With
　　Beep
End Sub

2 hits

▼

【68444】或るセルの値を他のセルの値にくっつけるには にしもり 11/3/8(火) 16:54