以下为查找对象是下一行单元格,如果要找下一列单元格要怎么样改公式??
Sub chazhao() On Error Resume Next Dim i, c, cc, r, rr, arr As Integer Sheet2.Range("b:b").ClearContents
cc = Sheet1.UsedRange.Columns.Count rr = Sheet1.UsedRange.Rows.Count
For c = 1 To cc For i = 1 To rr arr = InStr(Sheet1.Cells(i, c), Sheet2.Range("a1")) If arr > 0 Then Sheet2.Range("b" & r) = Sheet1.Cells(i + 1, c) r = Sheet2.[b65535].End(xlUp).Row + 1 Next i Next c End Sub 有请高手指教,QQ709516650在线等
[此贴子已经被作者于2008-12-15 1:48:31编辑过]
Sub chazhao() On Error Resume Next Dim i, c, cc, r, rr, arr As Integer Sheet2.Range("b:b").ClearContents
cc = Sheet1.UsedRange.Columns.Count rr = Sheet1.UsedRange.Rows.Count
For c = 1 To cc For i = 1 To rr arr = InStr(Sheet1.Cells(i, c), Sheet2.Range("a1")) If arr > 0 Then Sheet2.Range("b" & r) = Sheet1.Cells(i , c+1) r = Sheet2.[b65535].End(xlUp).Row + 1 Next i Next c End Sub
|