|
▼つん さん:
>さる さん、おはようございます。
>
>>Dim i As Long
>>Dim k As Long
>>
>>With Worksheets("シート2")
>> Worksheets("シート1").Select
>> For i = 2 To Range("A65536").End(xlUp).row
>>'kは列1つごとに追加します。(A列=1、B列=2・・・・)
>>
>> For k = 2 To 16 +1
>>
>> Worksheets("シート3").Cells(i, k).Value = WorksheetFunction.Vlookup(.Cells(i , k), .Range("B1:AU1"), k,FALSE)
>> Next i
>> Next k
>> End With
>>
>>End Sub
>
>とりあえず……
>まず、
> For k = 2 To 16 +1
>が変です。
>Kの値を一つずつ増やすなら、k = 2 To 16 だけでOKです。
>「16 +1」にすると、「17」までということになります。
>どうしても「1増やす」というのを書くなら「Step 1」です。
>
>それから、ループが2重になってますが、
>さるさんのは
>
> For i = 1 to x
> For k = 1 to x
> ・・・
> Next i
> Next k
>
>になってしまってます。
>
アドバイスありがとうございました。
初歩的ミスが多いのですみませんでした。
私はVBA始めたのは今年からですのでこれから
ご指導お願いします。
|
|