回答編集履歴
1
fix
test
CHANGED
|
@@ -1,4 +1,5 @@
|
|
|
1
1
|
```
|
|
2
|
+
Sub ReplaceAllSheets()
|
|
2
3
|
Dim sourceValue As String
|
|
3
4
|
Dim targetValue As String
|
|
4
5
|
sourceValue = ThisWorkbook.Worksheets("シート1").Range("A1").Value
|
|
@@ -20,4 +21,5 @@
|
|
|
20
21
|
Cells.Replace What:=sourceValue, Replacement:=targetValue, LookAt:=xlPart, _
|
|
21
22
|
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False, _
|
|
22
23
|
FormulaVersion:=xlReplaceFormula2
|
|
24
|
+
End Sub
|
|
23
25
|
```
|