今天看啥
热点:

www.BbJia.cOm

选择这两列,然后按筛选按钮,选择条件筛选

+1 www.bkjia.com

你用宏試試看:
1.ALT F11打開VB腳本編輯器.
2.(菜單)插入->模組
3.貼上如下代碼:
Sub Macro1()
k = 0
Sheets("sheet2").Select
Cells.Select
Selection.Delete
Sheets("sheet1").Select
Cells(1, 1).Select
For i = 1 To 65535
Cells(i, 1).Select
tmp = ActiveCell.Value
If Len(tmp) <= 0 Then
End
Ewww.bkjia.comnd If
If Asc(tmp) >= 48 And Asc(tmp) <= 57 Then
If tmp <> Int(tmp) Then
k = k 1
Rows(i).Select
Selection.Copy
Sheets("sheet2").Select
Rows(k).Select
ActiveSheet.Paste
Sheets("sheet1").Select
Rows(i).Select
Selection.Delete
i = i - 1
End If
End If
Next
End Sub
4.關閉VB腳本編輯器,回到EXCEL
5.ALT F8運行宏
6.OK
7.說明:
此宏刪除第一列不為整數的整行記錄,并把刪除的整行備份到sheet2工作表.
當第一列數據不為數字時不做處理,注意sheet2為全空,因為程序的開始會清空sheet2
8.注意此代碼貼上去之後會變成一行,你要注意換行哦,涉及到刪除操作,建議你在刪除前備份資料.
9.如有不明白的請聯繫

www.Bkjia.Com+1

相关推荐

www.bkjia.comtruehttp://www.bkjia.com/doc/355271702.htmlTechArticlewww.BbJia.cOm 选择这两列,然后按筛选按钮,选择条件筛选 +1www.bkjia.com 你用宏試試看: 1.ALT F11打開VB腳本編輯器. 2.(菜單)插入-模組 3.貼上如下...

相关文章

    暂无相关文章
相关频道:

帮客评论

视觉看点