不能取得类range的findnext属性

万木青

请高手指点一下，谢谢！

zhaogang1960

VBA帮助中有实例：
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

liulang0808

Sub 隐形操作多表2() '关于跨表操作的问题
Application.ScreenUpdating = False
Dim wb As Workbook, wbn$, iRow&, jrow&, ftx As String, i&, k&, c As Range, sMsg As String


    Sheets(1).Rows("1:1").Delete Shift:=xlUp
    iRow = Sheets(1).Range("A" & Rows.Count).End(3).Row
   
    With Worksheets(1).Range("a2:a" & iRow)
           Set c = .Find("订单号码", lookat:=xlWhole) '别忘了用set,否则会提醒对象变量未设置
      If Not c Is Nothing Then
           faddress = c.Address
           Set Rng = c
      Do
            Set c = .FindNext(c)
            Set Rng = Union(Rng, c)

      Loop While c.Address <> faddress
  
     
            MsgBox Rng.Address
            Rng.EntireRow.Delete
            MsgBox sMsg & "请检验是否已删完"
    End If
    End With
Set wb = Nothing
Application.ScreenUpdating = True
End Sub

万木青

liulang0808 发表于 2016-4-26 11:27
Sub 隐形操作多表2() '关于跨表操作的问题
Application.ScreenUpdating = False
Dim wb As Workbook, wbn ...

非常感谢，解决了！

万木青

liulang0808 发表于 2016-4-26 11:27
Sub 隐形操作多表2() '关于跨表操作的问题
Application.ScreenUpdating = False
Dim wb As Workbook, wbn ...

你好，请教一下以下问题：现想将工作簿中多个表的内容一一赋给数组再合并，执行出错，需要怎么修改？
Sub hbewsz() '将工作簿中多个表的内容一一赋给数组再合并
  Dim n%, i%, arr, arr1 '此处后两个为Variant 数据类型变量
  n = ActiveWorkbook.Worksheets.Count
  For i = 1 To n
     arr = Sheets(i).[a1].CurrentRegion
     arr1 = xhfz(arr)
     Erase arr
  Next
  ActiveWorkbook.Worksheets.add after:=Worksheets(n)
  ActiveSheet.Range("a1").Resize(UBound(arr1), UBound(arr1, 2)) = arr1   
End Sub

Function xhfz(arr)
Dim i&, j&, k&
ReDim Preserve arr1(1 To 300000, 1 To UBound(arr, 2))
For i = 1 To UBound(arr)
   k = k + 1
   For j = 1 To UBound(arr, 2)
   arr1(k, j) = arr(i, j)
   Next j
Next i

xhfz = arr1

End Function

liulang0808

万木青 发表于 2016-5-20 16:46
你好，请教一下以下问题：现想将工作簿中多个表的内容一一赋给数组再合并，执行出错，需要怎么修改？
Su ...

在redim 前增加一段Dim arr1() 看看吧

zhangcheng6688

zhaogang1960 发表于 2016-4-26 11:08
VBA帮助中有实例：
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)

嗯，比较经典