| |
▼初心者Ｍ さん：
>
>実は、見たいセル(Ａ、イなどの記号があるセル)はＤ８でなく、一個隣のＣ８にあります(すみません、昨日とは違うファイルでやることになったのです)。
>
>この場合、どこをいじれば良いでしょうか？
> 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
|
|
kanabun
- 14/1/8(水) 14:35 -
