回答編集履歴
1
修正
answer
CHANGED
@@ -1,6 +1,8 @@
|
|
1
1
|
こんな感じでどうでしょうか。
|
2
2
|
```VBA
|
3
3
|
Sub A()
|
4
|
+
Dim mySheet As Worksheet
|
5
|
+
Set mySheet = Activesheet
|
4
6
|
Dim wb As Workbook, ws As Worksheet, rng As Range, c As Range
|
5
7
|
|
6
8
|
' Set wb = Workbooks.Open("別ブック.xlsx")
|
@@ -8,7 +10,7 @@
|
|
8
10
|
Set ws = wb.Worksheets(1)
|
9
11
|
Set rng = ws.UsedRange.Columns(1).Cells
|
10
12
|
For Each c In rng
|
11
|
-
Cells.Replace what:=c.Value, replacement:=c.Offset(, 1).Value
|
13
|
+
mySheet.Cells.Replace what:=c.Value, replacement:=c.Offset(, 1).Value
|
12
14
|
Next
|
13
15
|
|
14
16
|
End Sub
|