Board logo

標題: 如何用VBA將有數字與文字的欄位那一整列刪除 [打印本頁]
作者: jerrystock    時間: 2015-3-5 21:37     標題: 如何用VBA將有數字與文字的欄位那一整列刪除

請問如何用VBA將A欄位只要有數字與文字例如21253A欄位那一整列刪除
謝謝
作者: lpk187    時間: 2015-3-5 22:33

好像有文字的數字都視為文字！
作者: jerrystock    時間: 2015-3-6 09:42

回復 2# lpk187
對喔!謝謝您的提醒
不過還是不知道如何用VBA方式去刪除整個A欄位出現文字的那一列
作者: GBKEE    時間: 2015-3-6 10:38

回復 3# jerrystock
如圖錄製新巨集看看


[attach]20387[/attach]


vba的說明
  1. SpecialCells 方法
  2. 請參閱套用至範例特定傳回 Range 物件，此物件代表與指定型態及值相符合的所有儲存格。Range 物件。
  3. expression.SpecialCells(Type, Value)
  4. expression      必選。該運算式會傳回 [套用於] 清單中的其中一個物件。

  6. Type     必選的 XlCellType。要包含的儲存格。
  7. XlCellType 可以是這些 XlCellType 常數之一。
  8. xlCellTypeAllFormatConditions。  任何格式的儲存格
  9. xlCellTypeAllValidation。具有驗證準則的儲存格
  10. xlCellTypeBlanks。空儲存格
  11. xlCellTypeComments。包含註解的儲存格
  12. xlCellTypeConstants。包含常數的儲存格
  13. xlCellTypeFormulas。包含公式的儲存格
  14. xlCellTypeLastCell。已用範圍的最後一個儲存格
  15. xlCellTypeSameFormatConditions。  有相同格式的儲存格
  16. xlCellTypeSameValidation。  有相同驗證準則的儲存格
  17. xlCellTypeVisible。所有可見儲存格

  19. Value     選擇性的 Variant。如果 Type 為 xlCellTypeConstants 或 xlCellTypeFormulas 之一，此引數可用於確定結果中應包含哪幾類儲存格。將某幾個值相加可使此方法傳回多種型態的儲存格。預設情況下將指定所有常數或公式，對其型態則不加類型。可為下列 XlSpecialCellsValue 常數之一：
  20. XlSpecialCellsValue 可以是這些 XlSpecialCellsValue 常數之一。
  21. xlErrors
  22. xlLogical
  23. xlNumbers
  24. xlTextValues
複製代碼
作者: jerrystock    時間: 2015-3-6 11:37

回復 4# GBKEE
謝謝大大教我方法 我錄製的巨集為:
Sub 巨集1()
'
' 巨集1 巨集
'

'
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeConstants, 2).Select 'A欄位只要有文字就刪除整列
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
End Sub
可是不知道如何刪除選出來的整列
還請大大指導一下
謝謝
作者: GBKEE    時間: 2015-3-6 11:52

回復 5# jerrystock


[attach]20390[/attach]
作者: jerrystock    時間: 2015-3-8 11:17

回復 6# GBKEE
謝謝大大教學 也解決我的問題



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)