[算表]openoffice calc操作vba出現錯誤
軟體:openoffice
版本:3.3.0
問題描述：因為calc資料中有多筆重複列的資料，
但是有2個欄位的值不是重複，不過我仍想刪除這些資料，
所以我想利用excel vba的方式，代碼如下：
Sub DelDupRecP()
Dim Cols As Range
Dim shtTmp As Worksheet
'備妥暫存工作表
Set shtTmp = Sheet2
shtTmp.Cells.Clear
'設定B與C欄不重複篩選
Set Cols = Sheet1.Range("b1:c7")
With Cols
.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
'複製到暫存工作表
.EntireRow.Copy shtTmp.Range("a1")
'全部顯示
.Worksheet.ShowAllData
'清除原有資料
.Worksheet.Cells.Clear
'自暫存工作表複製回來
shtTmp.UsedRange.Copy .Worksheet.Range("a1")
End With
End Sub
執行結果：出現執行錯誤，不明的資料類型range
若在代碼前面加入Option VBASupport 1
則出現預期的sub語法錯誤
煩請大家幫幫忙，讓我可以在calc執行vba
謝謝!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.25.50.240
Office 近期熱門文章
PTT數位生活區 即時熱門文章
