作者:乔山办公网日期:
返回目录:excel表格制作
Sub TestFind()
MsgBox Sheet1.Range("1:" & Sheet1.Rows.Count).Find("测试字符串").Address
End Sub
如果是多个,并且不要提示,让它变成行数的变量
因为单元格包含边框,所有看上去单元格没有内容,但是在使用Cell时,因为含有边框,Cell(i,j)<>"",可以用Cell(i,j).value<>""来判断。Cell不仅是单元格的内容,还包含单元格的格式等等与单元格相关的方面。
关于Cell的详细知识如下:
Cell代表单个表格单元格。
Cell对象是Cells集合中的元素。
Cells集合代表指定对象中所有的单元格。
用 Cell(row, column) 或 Cells(index)可返回 Cell对象,其中 row 为行号,column 为列号,index 为索引序号。下列示7a64e58685e5aeb9335例给第一行的第二个单元格加底纹。
Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2)
myCell.Shading.Texture = wdTexture20Percent
下列示例给第一行的第一个单元格加底纹。
ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _
.Texture = wdTexture20Percent
用Add方法可在 Cells集合中添加 Cell对象。也可用 Selection对象的InsertCells方法插入新单元格。下列示例在myTable 的第一个单元格之前插入一个单元格。
Set myTable = ActiveDocument.Tables(1)
myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)
本示例将第一个表格的头两个单元格设定为一个域 (myRange)。区域设定之后,用 Merge方法合并两个单元格。
Set myTable = ActiveDocument.Tables(1)
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _
.Range.Start, myTable.Cell(1, 2).Range.End)
myRange.Cells.Merge
说明
使用带 Rows 或 Columns集合的 Add方法添加一行或一列单元格。
使用 Selection对象的Information属性返回当前行号和列号。下面的示例改变选中部分第一个单元格的宽度,再显示单元格的行号和列号。
If Selection.Information(wdWithInTable) = True Then
With Selection
.Cells(1).Width = 22
MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _
& "," & .Information(wdStartOfRangeColumnNumber)
End With
End If
自己修复改代码吧,关键部分如下制:
for each rn in range("A1:B10")
if rn="" then
rows(rn.row).delete‘删除zhidao行
columns(rn.column).delete'删除咧
end if
next
位置什么知意思?下面代码为显道示行列号——
Sub m()
For Each Rng In Range("A1:N6")
If Rng <> "" Then
MsgBox "非空回单元格行号为答" & Rng.Row & " 列号为" & Rng.Column
End If
Next
End Sub