Sheet1にはデータがいっぱいある。そのなかから、僕は特定の情報がふくまれている行に赤色を塗った。たくさんの行に赤色を塗った。
ここにおいて、Ｓｈｅｅｔ１で赤色が塗られた行だけを、Sheet2に表示させたい。
Sub Sample()
Dim j As Integer
Dim LR As Integer
Dim i As Integer
j = 1
With Worksheets(1)
LR = .Range("A65536").End(xlUp).Row
For i = 1 To LR
If .Cells(i, 1).Interior.ColorIndex = 3 Then
Worksheets(2).Rows(j) = .Rows(i).Value
j = j + 1
End If
Next
End With
End Sub
ここにおいて、Ｓｈｅｅｔ１で赤色が塗られた行だけを、Sheet2に表示させたい。
Sub Sample()
Dim j As Integer
Dim LR As Integer
Dim i As Integer
j = 1
With Worksheets(1)
LR = .Range("A65536").End(xlUp).Row
For i = 1 To LR
If .Cells(i, 1).Interior.ColorIndex = 3 Then
Worksheets(2).Rows(j) = .Rows(i).Value
j = j + 1
End If
Next
End With
End Sub
|
|
|
|
|
|
|
|
お勉強 更新情報
-
最新のイベント
-
最新のアンケート
-
まだ何もありません
-
お勉強のメンバーはこんなコミュニティにも参加しています
人気コミュニティランキング
- 1位
- 愛知発！35歳〜カラオケ♪
- 936人
- 2位
- 音楽が無いと生きていけない
- 196657人
- 3位
- 30代〜40代から友達作り【友活】
- 35816人