⑴ 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？到文本的数值数据每次一行还是有其他要求？