OOobbs2/45
|
| A | |
| 1 | 名前 |
| 2 | 佐藤 |
| 3 | 鈴木 |
| 4 | 鈴木 |
| 5 | 吉岡 |
| 6 | 山田 |
| 7 | 佐藤 |
この状態からマクロを実行すると、
『重複のデータ（行）は削除される。』 という下記の結果を導き出したいです。
| A | |
| 1 | 名前 |
| 2 | 佐藤 |
| 3 | 鈴木 |
| 4 | 吉岡 |
| 5 | 山田 |
現在、下記の様なマクロを設定しています。
Sub main
Dim oDoc As Object
Dim oSheet As Object
Dim oSheets As Object
Dim oColumn As Object
Dim oEmptyRange As Object
Dim oLastRange As Object
Dim nNum As Long
oDoc = ThisComponent
oSheets = oDoc.getSheets()
oSheet = oSheets.getByIndex(0)
oColumn = oSheet.getColumns().getByName("A")
oEmptyRanges = oColumn.queryEmptyCells()
nNum = oEmptyRanges.getCount()
oLastRange = oEmptyRanges.getByIndex(nNum -1)
oCell = oLastRange.getCellByPosition(0,1)
rwIndex = 1
oeach = oSheet.getCellByPosition(0, rwIndex +1)
Do While rwIndex < oCell.CellAddress.Row
If oSheet.getCellByPosition(0, rwIndex).String = oeach.String Then
oSheet.Rows.removeByIndex(rwIndex, 1)
Else
rwIndex = rwIndex +1
End If
Loop
msgbox("完了")
End sub
これを実行すると、
| A | |
| 1 | 名前 |
| 2 | 佐藤 |
という必要なデータも削除されてしまいます。 「If〜Else」のループが上手く機能していないのでしょうか。
宜しくお願いします。
