我要一个EXCEL宏，要求提取一段时间的数据。复制到sheet2里怎么弄？时间是在B列中，其他的不管。

假设日期数据在Sheet1中的A列，目标复制到Sheet2中的A列，程序如下：
Sub aa()
Dim i As Long, j As Long
Dim TMax As Date, TMin As Date
i = 1: j = 1: TMax = "2011-9-10 20:00:00": TMin = "2011-9-9 20:00:00"
Do
If Sheet1Range("A" & i) >= TMin And Sheet1Range("A" & i) <= TMax Then
Sheet2Range("A" & j) = Sheet1Range("A" & i)
j = j + 1
End If
i = i + 1
Loop Until Sheet1Range("A" & i) = ""
End Sub
注：当Sheet1的A列为空则程序结束。

1、首先打开需要汇总相同项目的EXCEL表格，打开汇总表如下图，客户项目送货数量需要汇总，则在汇总表里的客户上录入和明细表里一样的客户名称。

2、然后在汇总表里的需要汇总的单元格里录入=SUMIF(明细客户项目，汇总表里客户项目，求和的区域），如下图。

3、接着在公式填充下面项目之前，需要在公式字母和数字前面加“$"符号，这样选定的区域下拉公式也不会改变，如下图。

4、这样汇总表就做出来，又不用改变明细表中项目和数据的顺序，如下图所示即完成了。

方法有很多，介绍一种比较简单常用的：
在C1输入下面的公式：
=vlookup(B:B,A:A,1,false)
回车后把公式向下复制，结果中不显示#N/A的数都是重复的数

excel数据单元格下拉数字是非常常用的 *** 作，具体 *** 作如下：
1、选择一个数据，从它下拉做递增数列。将鼠标放在该单元格右下角，变成十字形时点住下拉。
2、看到默认序列格式是相同数字。
3、点击该序列数字右下角包含十字的图案，在菜单中选择第二个填充序列。
4、该序列的数据就变成递增了。

另外一种办法就是初始就填好两个或两个以上数据，然后同时选中两个数据进行下拉，这样出来的结果也是会变成数据递增的。
或者选中一个数据下拉递增还有更简便的方法，就是下拉的同时按住CTRL键，则变为递增序列。
还有就是如果Excel表格输入中文大小写数据较少的话，可以使用输入法自带的功能去快速完成输入，以搜狗输入法为例，在单元格输入“V+数字”，在下拉选项中选择需要显示的格式即可。

---