vba应用

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub a()
Worksheets("教师").Range("ap4:ap300").Value = 0
Worksheets("教师").Range("as4:as300").Value = 0
Worksheets("二线").Range("an3:an300").Value = 0
Worksheets("二线").Range("aq3:aq300").Value = 0
Dim i As Integer
Worksheets("Sheet1").Cells(1, 1)="姓名"
Worksheets("Sheet1").Cells(1, 2)="耀华"
Worksheets("Sheet1").Cells(1, 3)="嘉诚"
Worksheets("Sheet1").Cells(1, 4)="合计"
For i = 2 To 300
    Worksheets("Sheet1").Cells(i, 1) = Worksheets("非义务耀华在编").Cells(i + 2, 2)
    Worksheets("Sheet1").Cells(i, 2) = Worksheets("非义务耀华在编").Cells(i + 2, 5)
Next
 
End Sub
 
 
 
Sub a()
Dim i As Integer
Dim j As Integer
 
For i = 2 To 289
    Worksheets("12").Cells(i, 11) = Application.WorksheetFunction.VLookup(Cells(i, 2), Worksheets("13-12").Range("A:D"), 2, 0)
 
On Error Resume Next
 
     
Next
 
 
End Sub

 

posted on   shortail  阅读(217)  评论(0编辑  收藏  举报

努力加载评论中...
点击右上角即可分享
微信分享提示