[已解决]自动导入另一个excel表中内容的VBA代码

kataa

想要在M《仪器鉴定表》中根据C列的（仪器编号）自动填入D~I列的内容，需填入的内容都在《仪器位置统计表》，怎么做个VBA的代码能实现呢，希望高手帮忙看下,这个只是表格的一小部分，而且引用的表格里面有单行还有双行，所以比较麻烦

最佳答案

月排行榜 / 总排行榜

文刀天可

2016-6-5 22:49

1. Private Sub CommandButton1_Click()
   
2. Dim wb, i%, j%
   
3. Dim mypath$, myfile$
   
4. Application.ScreenUpdating = False
   
5. mypath = ThisWorkbook.Path & "/"
   
6. myfile = Dir(mypath & "仪器安装位置.xls")
   
7. Set wb = Workbooks.Open(mypath & myfile)
   
8. With wb.Worksheets("Sheet1")
   
9.    For i = 4 To Range("c65536").End(xlUp).Row Step 2
   
10.        For j = 2 To .Range("c65536").End(xlUp).Row
    
11.            If Trim(Range("c" & i).Value) = Trim(.Range("c" & j).Value) Then
    
12.               Range("c" & i).Offset(0, 1).Value = .Range("c" & j).Offset(0, 1).Value
    
13.               Range("c" & i).Offset(0, 2).Value = .Range("c" & j).Offset(0, 2).Value
    
14.               Range("c" & i).Offset(0, 4).Value = .Range("c" & j).Offset(0, 3).Value
    
15.               Range("c" & i).Offset(0, 5).Value = .Range("c" & j).Offset(0, 4).Value
    
16.               Range("c" & i).Offset(0, 6).Value = .Range("c" & j).Offset(0, 5).Value
    
17.             End If
    
18.        Next
    
19.     Next
    
20. End With
    
21. 
    
22. wb.Close SaveChanges:=False
    
23. Application.ScreenUpdating = True
    
24. End Sub

复制代码

跳转到最佳答案楼层

kataa

有人吗？

baksy

附件

kataa

baksy 发表于 2016-6-2 18:08
附件

这个查找函数也可以的，但是我想学学有没有用VBA的代码自动导入的那种 。

kataa

kataa 发表于 2016-6-3 09:16
这个查找函数也可以的，但是我想学学有没有用VBA的代码自动导入的那种 。

求大侠们帮助啊

kataa

有大侠吗？

kataa

有高手吗在线等啊

tzjx200521

kataa 发表于 2016-6-3 12:11
有高手吗在线等啊

你这个有合并单元格的。。处理起来麻烦  真要弄也是可以的  ，要花点时间和精力。

kataa

tzjx200521 发表于 2016-6-3 13:05
你这个有合并单元格的。。处理起来麻烦  真要弄也是可以的  ，要花点时间和精力。

我把查找的表格的单元格合并了下，您在看下是不是方便弄些

kataa

有人吗，求助啊