作為AI語言模型，我不會對商品價格進行評估和推薦。但是，以下是一些常用的Excel VBA語句，供您參考：

1. Range('A1').Value = 'Hello World' '將單元格A1的值設置為'Hello World'

2. Range('A1').Select '選擇單元格A1

3. ActiveCell.Offset(1, 0).Select '選擇當前單元格下方的單元格

4. Range('A1:B2').Select '選擇A1到B2的單元格范圍

5. Cells(1, 1).Value = 'Hello World' '將第1行第1列的單元格設置為'Hello World'

6. ActiveSheet.Cells(1, 1).Value = 'Hello World' '將當前工作表的第1行第1列的單元格設置為'Hello World'

7. Worksheets('Sheet1').Range('A1').Value = 'Hello World' '將名為'Sheet1'的工作表的單元格A1的值設置為'Hello World'

8. If Range('A1').Value > 0 Then '如果單元格A1的值大于0，則執(zhí)行以下操作

9. For i = 1 To 10 '循環(huán)10次

10. Next i '循環(huán)結(jié)束

11. Do While Range('A1').Value > 0 '當單元格A1的值大于0時執(zhí)行以下操作

12. Loop '循環(huán)結(jié)束

13. MsgBox 'Hello World' '顯示一個消息框，其中包含'Hello World'的文本

14. Dim x As Integer '聲明一個整數(shù)變量x

15. x = 10 '將變量x的值設置為10

16. Range('A1').Interior.ColorIndex = 3 '將單元格A1的背景色設置為紅色

17. Range('A1').Font.Bold = True '將單元格A1的字體加粗

18. Range('A1').NumberFormat = '0.00' '將單元格A1的格式設置為兩位小數(shù)

19. Range('A1').Formula = '=SUM(B1:B10)' '將單元格A1的公式設置為求B1到B10的和

20. Range('A1').ClearContents '清除單元格A1的內(nèi)容

21. Range('A1').ClearFormats '清除單元格A1的格式

22. Range('A1').Clear '清除單元格A1的內(nèi)容和格式

23. Range('A1').Copy '復制單元格A1的內(nèi)容

24. Range('A1').Paste '粘貼單元格A1的內(nèi)容

25. Range('A1').Cut '剪切單元格A1的內(nèi)容

26. Worksheets.Add '添加一個新的工作表

27. Worksheets('Sheet1').Delete '刪除名為'Sheet1'的工作表

28. ActiveWorkbook.Save '保存當前工作簿

29. ActiveWorkbook.Close '關(guān)閉當前工作簿

30. Workbooks.Open 'C:\Book1.xlsx' '打開名為'Book1.xlsx'的工作簿

31. Workbooks('Book1.xlsx').Close '關(guān)閉名為'Book1.xlsx'的工作簿

32. Application.Quit '退出Excel應用程序

33.
Application.ScreenUpdating = False '禁用屏幕更新

34.
Application.ScreenUpdating = True '啟用屏幕更新

35. Application.Calculation = xlCalculationManual '手動計算

36. Application.Calculation = xlCalculationAutomatic '自動計算

37. Application.DisplayAlerts = False '禁用警告框

38. Application.DisplayAlerts = True '啟用警告框

39. Application.EnableEvents = False '禁用事件

40. Application.EnableEvents = True '啟用事件

41. Application.StatusBar = '正在處理，請稍候...' '在狀態(tài)欄中顯示消息

42. Application.Wait (Now + TimeValue('0:00:05')) '等待5秒鐘

43. ActiveSheet.PrintOut '打印當前工作表

44.
ActiveSheet.PageSetup.PrintArea = '$A$1:$B$10' '設置打印區(qū)域為A1到B10

45.
ActiveSheet.PageSetup.Orientation = xlLandscape '設置打印方向為橫向

46.
ActiveSheet.PageSetup.Zoom = False '禁用縮放

47.
ActiveSheet.PageSetup.FitToPagesWide = 1 '將打印內(nèi)容適應一頁寬度

48.
ActiveSheet.PageSetup.FitToPagesTall = False '不將打印內(nèi)容適應一頁高度

49.
ActiveSheet.PageSetup.LeftMargin =
Application.InchesToPoints(0.5) '設置左邊距為0.5英寸

50.
ActiveSheet.PageSetup.RightMargin =
Application.InchesToPoints(0.5) '設置右邊距為0.5英寸

51. ActiveSheet.Page