Question

用宏提取excel 中的数据

我想要提取每周末的收盘价，但是如果有过定假日，就像下面国庆的时候，那么周五就不是每周末了，我想请问下，如何通过vb编程，提取出来？我的想法是，能不能编程找下不连续的两天的前面一天？
日期 星期 收盘价
2010-11-19 星期五 2888.566
2010-11-18 星期四 2865.452
2010-11-17 星期三 2838.857
2010-11-16 星期二 2894.538
2010-11-15 星期一 3014.413
2010-11-12 星期五 2985.435
2010-11-11 星期四 3147.744
2010-11-10 星期三 3115.356
2010-11-9 星期二 3135
2010-11-8 星期一 3159.512
2010-11-5 星期五 3129.497
2010-11-4 星期四 3086.939
2010-11-3 星期三 3030.988
2010-11-2 星期二 3045.434
2010-11-1 星期一 3054.021
2010-10-29 星期五 2978.835
2010-10-28 星期四 2992.579
2010-10-27 星期三 2997.048
2010-10-26 星期二 3041.543
2010-10-25 星期一 3051.419
2010-10-22 星期五 2975.043
2010-10-21 星期四 2983.533
2010-10-20 星期三 3003.951
2010-10-19 星期二 3001.853
2010-10-18 星期一 2955.227
2010-10-15 星期五 2971.16
2010-10-14 星期四 2879.636
2010-10-13 星期三 2861.361
2010-10-12 星期二 2841.407
2010-10-11 星期一 2806.942
2010-10-8 星期五 2738.744
2010-9-30 星期四 2655.658
2010-9-29 星期三 2610.678
2010-9-28 星期二 2611.354
2010-9-27 星期一 2627.967
2010-9-21 星期二 2591.55
2010-9-20 星期一 2588.713
2010-9-17 星期五 2598.689
2010-9-16 星期四 2602.465
2010-9-15 星期三 2652.503
2010-9-14 星期二 2688.522
2010-9-13 星期一 2688.32
2010-9-10 星期五 2663.209

Answer 1

举例：

在建立企事业单位员工Excel表格过程中，员工的身份证号、所属省份、性别等信息都是必须要输入的。如果单位员工众多的话，相关个人信息的输入工作量无疑是相当大的。那么，能不能让繁琐的个人信息输入过程变得更轻松以提高自己的工作效率呢，当然是肯定的。因为只须利用一个Excel加载宏，就可以很方便地达到上述目的。

方法：

1.将下载好的“根据身份证求省市xla”解压到硬盘的任意位置。

2.接着运行“Excel 2007”(其他版本操作类似)并单击其左上角的圆形按钮，选择“Excel选项”，打开“Excel选项”对话框的“加载项”分支；

3.再单击该分支下的“转到”按钮，以打开“加载宏”对话框；

4.最后加载完勾选，A处新出现的“根据身份证求省市”复选框并单击“确定”按钮即可。

Answer 2

Sub aa()
a = 1
For i = 1 To Range("a56565").End(3).Row
If Weekday(DateSerial(Year(Cells(i, 1)), Month(Cells(i, 1)), Day(Cells(i, 1))), vbMonday) = 5 Then
Sheets("Sheet2").Cells(a, 1).Value = "第" & a & "周末"
Sheets("Sheet2").Cells(a, 2).Value = Cells(i, 3)
a = a + 1
End If
Next
End Sub