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

回答編集履歴

1

コードの修正

2019/03/11 08:05

投稿

kenshirou
kenshirou

スコア772

answer CHANGED
@@ -5,10 +5,6 @@
5
5
 
6
6
  ところで、以下のコードは期待する内容なのでしょうか?
7
7
  ```VB
8
- For R = 1 To ws.Cells(Rows.Count, "A").End(xlUp).Row
9
8
  If S2.Cells(R, "C").Value = ws.Cells(Rows.Count, "A")Then
10
- S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
11
- End If
12
- Next R
13
9
  ```
14
- "値一致シート"と"値の元"シートの比較行が適切なのであればいいのですが、良く分なかったので。
10
+ "値一致シート"と"値の元"シートの比較行が適切なのであればいいのですが、対象行が「Rows.Count」というのはおしいのではと思ったので。