Repace + Worksheet应用一例

ningyong58

为什么
  oRange.EntireRow.Select' 如果没有这句，下面的Repace不执行??

Sub msl()
  Dim oRange As Range, oRange1 As Range
  Set oRange1 = Sheets("Line").Range("B3:G6")
  Dim Sht As Worksheet
  Set Sht = oRange1.Parent
  Debug.Print Sht.Name
  tt = Chr(34) & oRange1.Address(0, 0) & Chr(34)
  tt = oRange1.Address(0, 0)
  Set oRange = Sht.Range(oRange1.Address)
  
  oRange.EntireRow.Select' 如果没有这句，下面的Repace不执行??
  

    oRange.Replace What:="50", Replacement:="B1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   
End Sub

[ 本帖最后由 ningyong58 于 2009-10-31 23:38 编辑 ]

lb_bn

不会啊，跟这句没关系。

ningyong58

原帖由 lb_bn 于 2009-10-31 23:52 发表
不会啊，跟这句没关系。

从理论上讲与这句关系，可操作时老是遇到问题。

lb_bn

要不上个附件？
我这里没问题，试了一下。