|
▼やふーー さん:
>あ、あります。
>IF文で、""を入力してしまっているので、見かけは空欄となってます。
>逆に何かサインを入れてしまったほうが、判定しやすいのでしょうか?
やっぱりね。
もっとうまい方法があるかもしれませんが、
Sub test()
Dim myFile As String
Dim myWB As Workbook
Dim FR As Variant
Const myPath As String = "D:\年度集計"
Application.ScreenUpdating = False
myFile = Dir(myPath & "\" & "AAA*.xls")
If myFile = "" Then
MsgBox "AAAのつくファイルはありません。"
Else
With ThisWorkbook.Sheets("全件一覧")
.Cells.ClearContents
.Range("A1:C1").Value = Array("氏名", "男女", "県名")
End With
Do While myFile <> ""
Set myWB = Workbooks.Open(myPath & "\" & myFile)
With myWB.Sheets("一覧表")
FR = Application.Match("", .Range("A:A"), 0)
If IsError(FR) Then
.Range("A1", .Range("A65536").End(xlUp)).Resize(, 3).Copy
Else
.Range(.Cells(1, 1), .Cells(FR - 1, 3)).Copy
End If
ThisWorkbook.Sheets("全件一覧").Range("A65536") _
.End(xlUp).Offset(1).PasteSpecial (xlPasteValues)
End With
myWB.Close
myFile = Dir()
Loop
End If
Application.ScreenUpdating = True
Set myWB = Nothing
End Sub
|
|