Hej, har tidligere set et svar på dette, men har følgende spørgsmål:
Har et regneark med
1000 rækker og skal erstatte noget i kolonnerne S:W med hvad der måtte stå i
tilsvarende række AA og AD.
Nedenstående
virker, men er noget af et arbejde til 1000 rækker, så jeg tænkte at det må
kunne forenkles?
Sub Soeg_Erstat()
Fra = Range("AA2").Text
Til = Range("AD2").Text
Range("S2:W2").Replace What:=Fra,
Replacement:=Til, LookAt:=xlPart _
, SearchOrder:=xlByRows,
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Fra =
Range("AA3").Text
Til = Range("AD3").Text
Range("S3:W3").Replace What:=Fra,
Replacement:=Til, LookAt:=xlPart _
, SearchOrder:=xlByRows,
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Fra = Range("AA4").Text
Til = Range("AD4").Text
Range("S4:W4").Replace What:=Fra,
Replacement:=Til, LookAt:=xlPart _
, SearchOrder:=xlByRows,
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Fra = Range("AA5").Text
Til = Range("AD5").Text
Range("S5:W5").Replace What:=Fra,
Replacement:=Til, LookAt:=xlPart _
, SearchOrder:=xlByRows,
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Fra = Range("AA6").Text
Til = Range("AD6").Text
Range("S6:W6").Replace What:=Fra,
Replacement:=Til, LookAt:=xlPart _
, SearchOrder:=xlByRows,
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Fra = Range("AA7").Text
Til = Range("AD7").Text
Range("S7:W7").Replace What:=Fra,
Replacement:=Til, LookAt:=xlPart _
, SearchOrder:=xlByRows,
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
På forhånd tak.
VH Henrik
|