一个简单的vba程序

1、实现一个基本的复制功能，办公室同事所需要的一个小功能。

 

1. Sub rep()  
2. '  
3. ' rep Macro  
4. ' 宏由 sea gull 录制，时间: 2007-1-10  
5. '  
6.   
7. '  
8.   Dim i As Integer  
9.   Dim endrow As Integer  
10.   endrow = Range("A65536").End(xlUp).Row  
11.     
12.   For i = 2 To endrow  
13.     
14.     If Cells(i, 2).Value = "" Then  
15.       Cells(i, 2).Value = Cells(i, 3).Value  
16.     End If  
17.       
18.   Next  
19.     
20. End Sub  

2、检查身份证号码不为18位的单元格刷红：

 

1. Sub check18()  
2. '  
3. ' check18 Macro  
4. ' 宏由 sea gull 录制，时间: 2007-1-10  
5. '   
6. '  
7. Dim i As Integer  
8. Dim endrow As Integer  
9. endrow = Range("A65536").End(xlUp).Row  
10. For i = 2 To endrow  
11.   If Len(CStr(Cells(i, 3).Value)) <> 18 And Len(CStr(Cells(i, 3).Value)) <> 15 Then  
12.       Cells(i, 3).Font.ColorIndex = 3  
13.   End If  
14. Next  
15.   
16. End Sub