|
▼ニッキ さん:
こんにちは。
>以前にある列の内容により別シートにデータを振り分けるという事で下記のような
>回答かありましたが、下記のようにした場合、計算式が有ると上手くいきません。
>絶対値で振り分けはできないでしょうか?
>アドバイスをお願い致します。
>
>Sub test()
>Dim WsB As Worksheet, WsC As Worksheet
>Dim i As Long
>Set WsB = Worksheets("B")
>Set WsC = Worksheets("C")
> For i = 1 To Range("B65536").End(xlUp).Row
> Select Case Cells(i, 2).Value
> Case "A"
wsB.Cells(wsB.Rows.Count, 1). _
End(xlUp).Offset(1, 0).EntireRow.Value _
= Rows(1).Value
> Case "B"
> Call Rows(i).Copy(WsC.Range("A65536").End(xlUp).Offset(1, 0))
' こっちも同じように変更してください
> End Select
> Next
>End Sub
|
|