怎么将一个表的数值提取为固定模式

Cathy小白 · 发表于 2019-3-21 12:05

如图将图一中的表格数值自动提取成图二的样子，谢谢大神们！！

爱疯 · 发表于 2019-3-21 13:33

没附件不便回复

Cathy小白 · 发表于 2019-3-21 13:57

爱疯发表于 2019-3-21 13:33
没附件不便回复

好的，我上传附件

Cathy小白 · 发表于 2019-3-21 13:58

Cathy小白发表于 2019-3-21 13:57
好的，我上传附件

已添加附件

爱疯 · 发表于 2019-3-21 14:38

d3
=OFFSET(Sheet1!A$3,MATCH(C3,Sheet1!A:A,)-3,MATCH(Sheet2!B3,Sheet1!$3:$3,)-1,,)

Cathy小白 · 发表于 2019-3-21 15:04

爱疯发表于 2019-3-21 14:38
d3
=OFFSET(Sheet1!A$3,MATCH(C3,Sheet1!A:A,)-3,MATCH(Sheet2!B3,Sheet1!$3:$3,)-1,,)

前面两列门店和姓名也要从是sheet1导入

爱疯 · 发表于 2019-3-21 15:16

Sub test()
Dim A(1 To 1000, 1 To 3), x, i

Application.ScreenUpdating = False
Sheets(1).Select
For Each x In [c4:p31]
      If Len(x) Then
         i = i + 1
         A(i, 1) = Cells(3, x.Column)
         A(i, 2) = Cells(x.Row, 1)
         A(i, 3) = x
      End If
Next

Sheets(3).Select
[a2:c65536] = ""
Range("A2").Resize(i, 3) = A
End Sub

考勤（虚）2.rar (24.89 KB, 下载次数: 1)

		自动登录	找回密码
密码			注册