返回列表 上一主題 發帖

如何用VBA將有數字與文字的欄位那一整列刪除

如何用VBA將有數字與文字的欄位那一整列刪除

請問如何用VBA將A欄位只要有數字與文字例如21253A欄位那一整列刪除
謝謝

好像有文字的數字都視為文字!

TOP

回復 2# lpk187
對喔!謝謝您的提醒
不過還是不知道如何用VBA方式去刪除整個A欄位出現文字的那一列

TOP

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





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

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

  17. Value     選擇性的 Variant。如果 Type 為 xlCellTypeConstants 或 xlCellTypeFormulas 之一,此引數可用於確定結果中應包含哪幾類儲存格。將某幾個值相加可使此方法傳回多種型態的儲存格。預設情況下將指定所有常數或公式,對其型態則不加類型。可為下列 XlSpecialCellsValue 常數之一:
  18. XlSpecialCellsValue 可以是這些 XlSpecialCellsValue 常數之一。
  19. xlErrors
  20. xlLogical
  21. xlNumbers
  22. xlTextValues
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 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
可是不知道如何刪除選出來的整列
還請大大指導一下
謝謝

TOP

回復 5# jerrystock


感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題