Sub sakujyo()
Dim i, ii As Long
For i = 1 To Range("a65336").End(xlUp).Row
For ii = Range("a65336").End(xlUp).Row To i + 1 Step -1
If Cells(i, 2).Value = Cells(ii, 2).Value _
And Cells(i, 4).Value = Cells(ii, 4).Value _
And Cells(i, 5).Value = Cells(ii, 5).Value Then
Dim iii As Byte
iii = 1
Rows(ii).Delete Shift:=xlUp
End If
Next ii
If iii = 1 Then Rows(i).Delete Shift:=xlUp
iii = 0
Next i
End Sub
データーが下の表のように入っております。
Ａ Ｂ Ｃ Ｅ Ｆ
１ 1/26 a1234 fdsa 5000 Ｃ1
２ 1/27 a4567 sdfa 4000 Ｔ2
３ 1/28 a1234 dfsa 5000 Ｃ1
４ 1/30 b4567 asdf 6600 Ａ2
５ 2/10 b4567 fsda 6600 Ａ2
６ 2/10 a1234 afds 5000 Ｃ1
Ｂ列、Ｅ列、Ｆ列が完全一致（重複１行目と３行目と６行目・４行目と５行目）で削除し結果的に２行目だけ残る方法がしたいのですが、このマクロですと少ないデータですとうまく動くのですが、『大量のデータを一気に削除出来ない』、『同じ重複が３つ以上のデータが多数ある場合データが削除されずに残ってしまう』エラーが出てしまいます。どうかお教えください。
Sub sakujyo()
Dim i, ii As Long
For i = 1 To Range("a65336").End(xlUp).Row
For ii = Range("a65336").End(xlUp).Row To i + 1 Step -1
If Cells(i, 2).Value = Cells(ii, 2).Value _
And Cells(i, 4).Value = Cells(ii, 4).Value _
And Cells(i, 5).Value = Cells(ii, 5).Value Then
Dim iii As Byte
iii = 1
Rows(ii).Delete Shift:=xlUp
End If
Next ii
If iii = 1 Then Rows(i).Delete Shift:=xlUp
iii = 0
Next i
End Sub
データーが下の表のように入っております。
Ａ Ｂ Ｃ Ｅ Ｆ
１ 1/26 a1234 fdsa 5000 Ｃ1
２ 1/27 a4567 sdfa 4000 Ｔ2
３ 1/28 a1234 dfsa 5000 Ｃ1
４ 1/30 b4567 asdf 6600 Ａ2
５ 2/10 b4567 fsda 6600 Ａ2
６ 2/10 a1234 afds 5000 Ｃ1
Ｂ列、Ｅ列、Ｆ列が完全一致（重複１行目と３行目と６行目・４行目と５行目）で削除し結果的に２行目だけ残る方法がしたいのですが、このマクロですと少ないデータですとうまく動くのですが、『大量のデータを一気に削除出来ない』、『同じ重複が３つ以上のデータが多数ある場合データが削除されずに残ってしまう』エラーが出てしまいます。どうかお教えください。
エクセル2000です。
たとえばA1セル内の文字列を一個ずつ取り出す場合、
Sub test01()
For i = 1 To Len(Range("A1").Value)
Cells(i, "B").Value = Range("A1").Characters(i, 1).Text
Next
End Sub
このように最初から最後の文字まで何番目で指定することはわかるのですが、これをFor Each で回すにはどうしたらよいでしょうか？
（⌒o⌒)？ お教えください。
Sub test02()
For Each ch In Range("A1").Characters
i = i + 1
Cells(i, "B").Value = ｃｈ
Next
End Sub
ではエラーになります。
エクセル2000です。
たとえばA1セル内の文字列を一個ずつ取り出す場合、
Sub test01()
For i = 1 To Len(Range("A1").Value)
Cells(i, "B").Value = Range("A1").Characters(i, 1).Text
Next
End Sub
このように最初から最後の文字まで何番目で指定することはわかるのですが、これをFor Each で回すにはどうしたらよいでしょうか？
（⌒o⌒)？ お教えください。
Sub test02()
For Each ch In Range("A1").Characters
i = i + 1
Cells(i, "B").Value = ｃｈ
Next
End Sub
ではエラーになります。
エクセル2000です。
Sub test()
Range("A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50,A51,A52,A53,A54,A55,A56,A57,A58,A59,A60,A61,A62,A63,A64,A65,A66,A67,").Select
End Sub
上記の67個のセルを選択するマクロを実行すると
「実行時エラー1004 Rangeメソッドは失敗しました。'Global'オブジェクト」となってしまいます。
一個へらして66個にすると問題なく選択されます。
Rangeに個別で記載できる引数は66個までなのでしょうか？
質問に書いたセルは、数が一目でわかるための例なので、Range("A1:A67").Selectという回答以外でお願いします。
エクセル2000です。
Sub test()
Range("A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50,A51,A52,A53,A54,A55,A56,A57,A58,A59,A60,A61,A62,A63,A64,A65,A66,A67,").Select
End Sub
上記の67個のセルを選択するマクロを実行すると
「実行時エラー1004 Rangeメソッドは失敗しました。'Global'オブジェクト」となってしまいます。
一個へらして66個にすると問題なく選択されます。
Rangeに個別で記載できる引数は66個までなのでしょうか？
質問に書いたセルは、数が一目でわかるための例なので、Range("A1:A67").Selectという回答以外でお願いします。
エクセル2000です。
Sub test()
Range("A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28,A29,A30,A31,A32,A33,A34,A35,A36,A37,A38,A39,A40,A41,A42,A43,A44,A45,A46,A47,A48,A49,A50,A51,A52,A53,A54,A55,A56,A57,A58,A59,A60,A61,A62,A63,A64,A65,A66,A67,").Select
End Sub
上記の67個のセルを選択するマクロを実行すると
「実行時エラー1004 Rangeメソッドは失敗しました。'Global'オブジェクト」となってしまいます。
一個へらして66個にすると問題なく選択されます。
Rangeに個別で記載できる引数は66個までなのでしょうか？
質問に書いたセルは、数が一目でわかるための例なので、Range("A1:A67").Selectという回答以外でお願いします。
