|
▼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)に入れていきたいのですが、
>どのようにすればいいのでしょうか。行は可変です。
>ご教授の程、宜しくお願い致します。
>
>
|
|