作者:乔山办公网日期:
返回目录:excel表格制作
dim flag as boolean
flag=false
for i=1 to usedrange.rows.count
for j=1 to usedrange.columns.count
if cells(i,j)="Weight/Mt Contents" then
Rows(i+1).Insert Shift:=xlDown
Rows("1:"& i).Delete Shift:=xlUp
flag=true
exit for
end if
next j
if flag then exit for
next i
给你个抄列子 在 C列找 包含袭 “宁波” 的单元格百 ,如果 是完全匹配 XLPART 改成度XLWHOLE
Sub 查找()
Set findcell = Columns("c").Find("宁波知", LookAt:=xlPart)
If Not findcell Is Nothing Then
MsgBox findcell.Row
Else
MsgBox "没找到符合条道件的单元格"
End If
End Sub
'单元格触发制事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
MsgBox "当前百单度元格的行问号是:" & Target.Row
End If
End Sub
用命答令按钮的宏:
Sub YY()
MsgBox "当前单元格的行号:" & ActiveCell.Row
End Sub
1、可以用InStr(查找的单元格或文本,查找的内容)这个来百查找,用“.row”来获取行号
假设你要查找A列里包含“中国”内容的单元格可以度这么写
For i = 1 To Cells(65536, 1).End(xlUp).Row '获取A列最后一个含有数值单元格的位置,并知设定循环数
If InStr(Cells(i, 1), "中国") Then '如果单元格中含有“中国”则将行号显示到B列相应的单元格中
Cells(i, 2) = Cells(i, 1).row
End If
Next i
2、获取数据的道话可以用“变量=cells(行号,列号)”来获取
不过我对内VBA属于初学,肯定还有比我这个跟好的写法,所以写的有什容么的不对的地方还请见谅^_^