⑴ excel怎麼用vb自動刪除滿足條件的那一行
」數據「-」篩選「，在B1處出現的小箭頭處點擊，選擇」完成「，點擊」確定「，然後選擇行，刪除。再點擊」數據「-」篩選「，取消篩選。
原來要另外的方案，下面是VBA代碼：Sub mydel() Dim i As Double For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1 If Range("B" & i) = "完成" Then Rows(i).Delete Next iEnd Sub
⑵ 如何在VB中讀取excel數據並過濾
jkmjkm222222 你缺心眼兒吧。。發的什麼啊。。要分自己想辦法整去。
⑶ 用vb刪除excel的某一行具體程序
'菜單「工程/引用」，勾選Microsoft
Excel
11庫，必須的
Private
Sub
Command1_Click()
Dim
xlApp
As
Excel.Application
Dim
xlBook
As
Excel.Workbook
Dim
xlSheet
As
Excel.Worksheet
On
Error
Resume
Next
Set
xlApp
=
GetObject(,
"Excel.Application")
If
Err.Number
<>
0
Then
Set
xlApp
=
CreateObject("Excel.Application")
On
Error
GoTo
prcERR
Set
xlBook
=
xlApp.Workbooks.Open(App.Path
&
"\test.xls")
'打開你的EXCEL文件
Set
xlSheet
=
xlBook.Worksheets(1)'第一個表格
xlSheet.Application.Visible
=
True
'設置Excel
可見
xlSheet.Rows("1:1").Delete
Shift:=xlUp'假如要刪除第1行。刪除第2行就是"2:2"，刪除1-3行就是"1:3"
Set
xlSheet
=
Nothing
Set
xlBook
=
Nothing
Set
xlApp
=
Nothing
Exit
Sub
prcERR:
Debug.Print
Err.Number
&
":"
&
Err.Description
End
Sub
⑷ vb代碼 excel插入的數據總是在第一行
只需要用這一句就可以在第一行之前插入一個空行：
Rows("1:1").Insert Shift:=xlDown
GoodLuck!
⑸ 如何用vb刪除excel 中的某一行某一列的數據 例如第三行第一列.求簡易代碼
SubMacro1()
Rows("3:3").DeleteShift:=xlUp'刪除第3行,下面上移
Columns("C:C").DeleteShift:=xlToLeft'刪除C列,右邊左移
EndSub
⑹ excel VBA下如何選擇篩選後，可見單元格的第一行或第三行，第一個單元格或第三個單元格。
我的方法是集成了多位大神的結果，解決了我的問題（我想將篩選出來的行及其後的三行一起刪掉，篩選條件是宏錄制的）。代碼如下：
『篩選條件，可使用宏錄制，然後修改
j=rows("2:2000").specialcells(12).row 『獲取篩選的行號，「2：2000」是篩選的范圍，根據需要修改
Rows(j & ":" & (j+3)).Select 』選中篩選的行及其後3行，根據需要修改
』選中後的操作，可使用宏錄制，然後修改
網頁鏈接網頁鏈接
⑺ VB如何取讀excel表第一行的數據
你把列和行叫反了，
myRow = xlBook.Sheets("總表").[a65536].End(xlUp).Row
是A列的最後一行
myCol = xlBook.Sheets("總表").[iv1].End(xlToLeft).Column
是讀取第一行的最後一列
⑻ vb操作Excel排序時，第一行不參加排序
xlbook.sheets("信貸3").Range("A1").Sort key1, 1
將上面的Range("A1")直接修改成需要排序的區域，比如:
示例1：
對Range("A2:G100")區域按G列進行排序，則可以寫為：
xlbook.sheets("信貸3").Range("A2:G100").Sort key1, 1
示例2：
對B3:J200區域按B列進行主要排序，按E列進行次要排序則寫為：
Set k1 = xlsheet.Range("B3") '關鍵列
Set k2 = xlsheet.Range("E3") '關鍵列
xlbook.sheets("信貸3").Range("B3:j200").Sort KEY1:=k1, ORDER1:=1,key2:=k2,order2:=1
⑼ VB 如何刪除文本框第一行的空行
Private Sub Command1_Click()
Do While InStr(Text1.Text, " " + vbCrLf) > 0
Text1.Text = Replace(Text1.Text, " " + vbCrLf, vbCrLf) '清除換行符前的空格。
Loop
Text1.Text = Replace(Text1.Text, vbCrLf + vbCrLf, vbCrLf) '清除行與行之間的空行。
If InStr(Text1.Text, vbCrLf) = 1 Then Text1.Text = Replace(Text1.Text, vbCrLf, "", 1, 1)'清除為首的空行。
End Sub
試試就OK，誰用誰知道，一般人我還不告訴他。
⑽ VB控制excel 刪除某一行
看了有點糊塗：究竟是將A列內容還是將D列內容寫到 文本.txt？另外像4列這種情況，兩個條件都滿足，是兩次到文本還是只記錄一次到文本.txt？到文本的數值數據每次一行還是有其他要求？