| |
▼ニッキ さん：
>見ているところが違っているみたいです。
よくわかりませんので勘だけで。
１、
他はA列なのにここだけB列？
２、
A列のデータはホントに数値？文字列型になっているとか
３、
Buttonがどこにあって、どこのデータを振り分けたいのかわからない。
Private Sub CommandButton1_Click()
Dim WsB As Worksheet
Dim i As Long
Set WsB = Worksheets("B")
Set WsC = Worksheets("C")
For i = 2 To Range("B65536").End(xlUp).Row '←1
Select Case Cells(i, 1).Value '←2
Case 0 To 9999
WsB.Cells(WsB.Rows.Count, 1). _
End(xlUp).Offset(1, 0).EntireRow.Value _
= Rows(i).Value 'ここの変数iを入れてください
Case Else
WsC.Cells(WsC.Rows.Count, 1). _
End(xlUp).Offset(1, 0).EntireRow.Value _
= Rows(i).Value 'ここの変数iを入れてください
End Select
Next
End Sub
|
|
ハチ
- 06/9/6(水) 17:53 -
