Sub NuruSagashi()

Dim Row As Integer
Dim myFirst As String
Dim myKekka As Range

Sheets(1).Select
With Range("C1:C600")
Set myKekka = .Find(What:="#N/A")
If Not myKekka Is Nothing Then
myFirst = myKekka.Address
Do
Row = ActiveCell.Row
x = Sheets(2).Cells(600, 1).End(xlUp).Offset(1, 0).Row
Sheets(2).Cells(x, 1).Value = Sheets(1).Cells(Row, 1).Value
Set myKekka = .FindNext(After:="#N/A")
Loop Until myKekka.Address = myFirst
End If
End With
End Sub

回答の条件
  • URL必須
  • 1人1回まで
  • 登録:2009/01/09 02:35:01
  • 終了:2009/01/16 02:35:02

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません