Excel VBA質問箱 IV

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

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


13789 / 76733 ←次へ | 前へ→

【68446】Re:或るセルの値を他のセルの値にくっつけるには
発言  kanabun  - 11/3/8(火) 17:22 -

引用なし
パスワード
   ▼にしもり さん:
>まずNレコード目とN+1レコード目の#を比べ同じかをみます。(上記では#111が2個あります。)
>同じだったら
>そして(この場合、)3行目をDELETEします。
>なお、同じ#は2個とは限りませんが#昇順になっています。

行削除は下からやるのが定石です。
そして、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 質問
【68446】Re:或るセルの値を他のセルの値にくっつけ... kanabun 11/3/8(火) 17:22 発言
【68450】Re:或るセルの値を他のセルの値にくっつけ... にしもり 11/3/8(火) 17:53 お礼

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