為什麼這篇vba語法錯誤鄉民發文收入到精華區:因為在vba語法錯誤這個討論話題中,有許多相關的文章在討論,這篇最有參考價值!作者jenhsi (修行)看板Office標題[算表]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