|
> If Fcl.Value = FindSt And Fcl.Offset(-1).Value <> FindSt And Fcl.Row <> 1 Then
これじゃダメですね!
こうやって分けないと...。
Dim Fcl As Range, FindSt As String
FindSt = "〃"
With ActiveSheet.UsedRange
Set Fcl = .Find(FindSt, After:=.Cells(.Count), LookAt:=xlWhole, MatchCase:=True, MatchByte:=True)
SavAd = Fcl.Address
If Not (Fcl Is Nothing) Then
Do
If Fcl.Row <> 1 Then
If Fcl.Value = FindSt And Fcl.Offset(-1).Value <> FindSt Then
Fcl.Value = Fcl.Offset(-1).Value
End If
End If
Set Fcl = .FindNext(After:=Fcl)
Loop Until SavAd = Fcl.Address Or Fcl Is Nothing
End If
End With
|
|