用于整理数据的宏或VBA代码

Question

我有一个从excel中的20或22个文本文件中整理数据的任务，然而，99％的时间我将以文本分隔格式存储数据，但有1％的可能性，20个文本文件中的1个文件将具有格式化的数据当你在excel中打开文本文件时检查它时，使用文本到列函数。我的问题是，是否有一种方法可以构建一个宏，在整理一张工作表中的所有内容之前检查数据，并排除那些数据已经使用text to column格式化的文件。无法附加数据文件的屏幕截图。如果您需要，请告诉我，我会另外发邮件 请找到我目前使用的代码

Sub Combine()
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add ' add a sheet in first place
Sheets(1).Name = "Combined"

' work through sheets
For J = 2 To Sheets.Count ' from sheet 2 to last sheet
Sheets(J).Activate ' make the sheet active
Range("A1").Select
Selection.CurrentRegion.Select ' select all cells in this sheets

' copy cells selected in the new sheet on last line
Selection.Copy Destination:=Sheets(1).Range("A1000000").End(xlUp)(2)
Next
End Sub