teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

修正

2021/05/10 13:13

投稿

jinoji
jinoji

スコア4592

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