|
▼初心者M さん:
>
>実は、見たいセル(A、イなどの記号があるセル)はD8でなく、一個隣のC8にあります(すみません、昨日とは違うファイルでやることになったのです)。
>
>この場合、どこをいじれば良いでしょうか?
> b = r.Offset(, -1).Value
>
>の「-1」を「-2」にしたら上手くいったのですが、
今回も「-1」を「-2」にすればいいですよ
For x = X0 To X0 + (XX - 1) * Xstp Step Xstp
For y = Y0 To Y0 + (YY - 1) * Ystp Step Ystp
For Each c In Cells(y, x).Resize(9)
ss = c.Value
If Len(ss) > 0 Then
n = c.Offset(, -1).Value '◆ココと
If Not dic.Exists(ss) Then
dic(ss) = n
ElseIf dic(ss) < n Then
dic(ss) = n
End If
End If
Next
Next
Next
For x = X0 To X0 + (XX - 1) * Xstp Step Xstp
For y = Y0 To Y0 + (YY - 1) * Ystp Step Ystp
For Each c In Cells(y, x).Resize(9)
ss = c.Value
If Len(ss) > 0 Then
c.Offset(, -1).Value = dic(ss) '◆ココ
End If
Next
Next
Next
|
|