提取数据

Question

我有一个Excel文件：

Excel.xls

Code date  start end 
2301 12/08/1993 08:02 08:17 
4221 12/08/1993 09:04 09:25 
2312 12/08/1993 10:02 10:28 
1284 19/09/1994 11:02 11:21 
2312 19/09/1994 15:57 16:20 
1284 23/06/1995 17:12 17:35 
2312 22/06/1996 13:14 13:32 
4221 22/06/1996 15:53 16:13 
4221 05/05/1999 08:06 08:22 
2418 05/05/1999 08:10 08:33 
2301 05/05/1999 09:12 09:37 
2301 05/05/1999 09:28 10:28 
2301 05/05/1999 13:28 13:38 

问题：

的问题是，以提取数据从excel文件到另一个由Code连接的行？

希望的解决方案：

从Excel中导入数据文件到另一个或工作簿时，通过Code行的数目接合与数据有关的名片，例如在片材2301我可以具有唯一的数据人谁该代码在Excel文件：

Sheet2301

Code date  start end 
2301 05/05/1999 09:12 09:37 
2301 05/05/1999 09:28 10:28 
2301 05/05/1999 13:28 13:38 
....  ......  .... .... 

林AB例如VBA中的内幕，所以我花了几天的时间找到解决方案。

编辑：

其实我有不同的CSV文件，我导入到使用此VBA代码的唯一工作表：

Option Explicit 

Sub ImportCSV() 

Dim strSourcePath As String 
Dim strDestPath As String 
Dim strFile As String 
Dim strData As String 
Dim x As Variant 
Dim Cnt As Long 
Dim r As Long 
Dim c As Long 

Application.ScreenUpdating = False 

'Change the path to the source folder accordingly 
strSourcePath = "path to csv files\" 

If Right(strSourcePath, 1) <> "\" Then strSourcePath = strSourcePath & "\" 

'Change the path to the destination folder accordingly 
strDestPath = "path to csv files\" 

If Right(strDestPath, 1) <> "\" Then strDestPath = strDestPath & "\" 

strFile = Dir(strSourcePath & "*.csv") 

Do While Len(strFile) > 0 
    Cnt = Cnt + 1 
    If Cnt = 1 Then 
     r = 1 
    Else 
     r = Cells(Rows.Count, "A").End(xlUp).Row + 1 
    End If 
    Open strSourcePath & strFile For Input As #1 
     If Cnt > 1 Then 
      Line Input #1, strData 
     End If 
     Do Until EOF(1) 
      Line Input #1, strData 
      x = Split(strData, ",") 
      For c = 0 To UBound(x) 
       Cells(r, c + 1).Value = Trim(x(c)) 
      Next c 
      r = r + 1 
     Loop 
    Close #1 
    Name strSourcePath & strFile As strDestPath & strFile 
    strFile = Dir 
Loop 

Application.ScreenUpdating = True 

If Cnt = 0 Then _ 
    MsgBox "No CSV files were found...", vbExclamation 

End Sub 

和代码工作很细，所以我必须通过加入该数据在不同的电流表中（正如我之前解释的）？

Answer 1

无需VBA，您可以使用公式。

我假设你的每张纸（“2301”，“4221”等）被称为只是。另外，我假设每个人都有一个标题行。

在您的非主工作表中输入该公式（作为一个数组，CTRL + SHIFT + Enter并拖动/降： =IFERROR(INDEX(Sheet1!A$2:A$14,SMALL(IF(Sheet1!$A$2:$A$14=INT(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))),ROW(Sheet1!A$2:A$14)-ROW(Sheet1!A$2)+1),ROWS(Sheet1!A$2:A2))),"")

你可能需要调整的范围内，但如果您有任何问题，请告诉我们！

现在，您可以在任何工作表上使用该公式，它会查看主工作表（在我的示例中为Sheet1）然后返回等价信息。

你会在哪里可能想要VB的帮助，但是，将这个公式添加到每个工作表。让我知道你是否需要帮助。

编辑：尽管如此，这要求您已将工作簿保存在某处。除非保存工作簿，否则返回工作表名称的公式部分不起作用。