|
アドバイスありがとうございます。
初心者なので内容が色々と理解できていない部分があり
転用ができないのですが、
今後勉強して覚えていきたいと思います。
ありがとうございました。
▼Jaka さん:
>こんにちは。
>
>手法変えちゃったけど...。
>
>Private Sub CommandButton1_Click()
> Dim 行 As Long, i As Long
> 行 = 2
> With Sheets("東京")
> 東京End行 = .Cells(行 - 1, 4).End(xlDown).Row
> For i = 行 To 東京End行
> If .Cells(i, 4).Value = "×" Then '○×のセルが「×」の時
> .Range(.Cells(i, 1), .Cells(i, 4)).Copy
> 結果End行 = Sheets("結果").Cells(1, 1).End(xlDown).Row
> Sheets("結果").Cells(結果End行 + 1, 1).PasteSpecial
> End If
> Next
> End With
>End Sub
|
|