如何将横向数据表生成单个信息表

ycx123123

求助各位大神：如附件，如何将表一的数据自动生成到表二里，并且表一有更新时，表二自动更新，谢谢

ycx123123

在线等大神回复，谢谢

kkf5560

=VLOOKUP($B$2,表1!$A:$AJ,MATCH(A3,表1!$A$2:$AJ$2,),)

ycx123123

kkf5560 发表于 2018-3-31 18:44
=VLOOKUP($B$2,表1!$A:$AJ,MATCH(A3,表1!$A$2:$AJ$2,),)

麻烦在附件中展示下，谢谢，我怎么套进出做不出来，谢谢

fhqwgimtd

用vba可以实现，做出一个按钮来，每次有需要时点按后在后面生成表单，但每个表单单独一个工作表，如果放在同一个工作表里代码写起来有点复杂

kkf5560

ycx123123 发表于 2018-3-31 20:29
麻烦在附件中展示下，谢谢，我怎么套进出做不出来，谢谢

你自己填序号，然后修改第一参数，每个空复制一次哇，第一次是麻烦了一点，后面就自动更新了

ycx123123

fhqwgimtd 发表于 2018-3-31 20:36
用vba可以实现，做出一个按钮来，每次有需要时点按后在后面生成表单，但每个表单单独一个工作表，如果放在 ...

可否麻烦做个样式呀，谢谢

ycx123123

kkf5560 发表于 2018-3-31 20:39
你自己填序号，然后修改第一参数，每个空复制一次哇，第一次是麻烦了一点，后面就自动更新了

按您的办法搞定了，谢谢

ycx123123

fhqwgimtd 发表于 2018-3-31 20:36
用vba可以实现，做出一个按钮来，每次有需要时点按后在后面生成表单，但每个表单单独一个工作表，如果放在 ...

我觉得我有必要学习VBA的方式，谢谢

fhqwgimtd

ycx123123 发表于 2018-3-31 20:46
可否麻烦做个样式呀，谢谢

1. Sub 生成表单()
   
2. Dim arr()
   
3. Dim i, j, k As Integer
   
4. i = Sheet1.Range("b65536").End(xlUp).Row
   
5. arr() = Sheet1.Range("a3:aj" & i)
   
6. j = UBound(arr, 1)
   
7. 
   
8. For Each sht In Sheets
   
9. Application.DisplayAlerts = False
   
10.     If sht.Name Like "表*" Then
    
11.     Else
    
12.     sht.Delete
    
13.     End If
    
14. Application.DisplayAlerts = True
    
15. Next
    
16. For k = 1 To j
    
17.     l = 0
    
18.     For Each sht In Sheets
    
19.         If sht.Name = k Then
    
20.             l = 1
    
21.         End If
    
22.     Next
    
23.         If l = 0 Then
    
24.         Sheet2.Copy after:=Sheets(Sheets.Count)
    
25.         Sheets(Sheets.Count).Name = arr(k, 1)
    
26.         With Sheets(Sheets.Count)
    
27.             .Range("b" & 2) = arr(k, 1)
    
28.             .Range("b" & 3) = arr(k, 2)
    
29.         End With
    
30.         End If
    
31. Next
    
32. End Sub
    

复制代码

其中
        With Sheets(Sheets.Count)
            .Range("b" & 2) = arr(k, 1)
            .Range("b" & 3) = arr(k, 2)
        End With
with和end with之间的语句，需要按这个形式自己补全，你那个表挺不规范的，所以没有太好的办法批量处理，补全后可以实现一键生成所有表单并以序号命名的功能