|
▼ponpon さん:
こんにちは、indyです。
この度は教えて頂きどうもありがとうございます。
お蔭様でできました!ありがとうございます!
それで、これのちょっと違った形なのですが、
sheet1
A B ・ ・・・・ M N
1 品目CODE 品目 A店 B店
2 001 みかん 500 700
3 002 りんご 800 800
4 003 バナナ 300 450
5 : : :
6
というデータを
sheet2
A B C D
1 品目CODE 品目 A店 B店
2 001 みかん 500 700
3 003 バナナ 300 450
4 : : :
5
と、条件は変わらないのですが、sheet1のデータが離れてしまっている
(DからL列は条件には関係のないデータが入っています)
ものをsheet2のようにしたい時はどのように書けばいいのでしょうか・・。
初心者の為、お手数おかけ致します。
宜しくお願いします。
>▼indy さん:
>ponponです。こんばんは。
>
>こんな感じでいかがでしょう。
>あまりスマートではありませんが、
>Sub test()
> Dim myRng As Range
> Dim myRng2 As Range
> Dim r As Range
>
> With Worksheets("sheet1")
> Set myRng = .Range(.Range("B2"), .Range("B65536").End(xlUp))
> For Each r In myRng
> If r <> "" Then
> If r.Value <> r.Offset(, 1).Value Then
> Set myRng2 = Worksheets("sheet2").Range("A65536").End _
> (xlUp).Offset(1, 0)
> Worksheets("sheet2").Range("A1").Resize(1, 3).Value _
> = .Range("A1").Resize(1, 3).Value
> myRng2.Resize(1, 3).Value = r.Offset(, -1) _
> .Resize(1, 3).Value
> End If
> End If
> Next
> End With
>
>End Sub
>
>
>>sheet1
>> A B C
>>1 品目 A店 B店
>>2 みかん 500 700
>>3 りんご 800 800
>>4 バナナ 300 450
>>5 : : :
>>6
>>というデータを
>>sheet2
>> A B C
>>1 品目 A店 B店
>>2 みかん 500 700
>>3 バナナ 300 450
>>4 : : :
>>5
>>というふうにsheet1からA店とB店の数が違うもの(B列とC列の数が違うもの)
>>だけのデータを別シート(sheet2)に入れていきたいのですが、
>>どのようにすればいいのでしょうか。行は可変です。
>>ご教授の程、宜しくお願い致します。
>>
>>
|
|