Excel怎么根据日期从不同的sheet里取数据

提取的代码不复杂不过你这例表也太随便了吧。。。籍贯、出生地在哪里？同一表内有好几个人，都要提取吗？要添加的话就加 .Cells(x,7) .Cells(x,8) 。。。Sub test()Application.ScreenUpdating = Falsea = Worksheets.Count '取得工作表的总数For i = 1 To a - 1Sheets(i).SelectWith Sheets(a)x = .Range("a65536").End(xlUp).Row + 1.Cells(x, 1) = [B1] '姓名.Cells(x, 2) = [D1] '性别.Cells(x, 3) = [F1] '出生年月.Cells(x, 4) = [B2] '民族.Cells(x, 5) = [D2] '籍贯.Cells(x, 6) = [F2] '出生地End WithNextSheets(a).SelectApplication.DisplayAlerts = TrueEnd Sub

INDIRECT函数

各表的数据格式是怎样的？