|
▼kanabun さん:
有難うございました。
ちゃんと行きましたが 全体の位置をずらすと表示位置が
変になるのですが ("A1:G1")→("B2:H2") ("A2:A3")→("B3:B4")
>▼トキノハジメ さん:
>
>>("A1:G1") の所で型が一致しませんとでたのですが
>
>??? 分かりません。
>標準モジュールにコピペされましたか?
>
>'----------------------------------- Module1 とか
>Option Explicit
>
>Sub MatchCopy() 'プロシージャ名は適当でいいです
> Dim r As Range")
> Dim c As Range
> Dim m
> Set r = Range("A1:G1")
> For Each c In r.Offset(3)
> m = Application.Match(c.Value2, r, 0)
> If IsNumeric(m) Then
> c.Range("A2:A3").Value = r(m).Range("A2:A3").Value
> End If
> Next
>End Sub
|
|