|
本帖最后由 乐呵呵218 于 2016-12-29 10:30 编辑
各位大神,我想从一个表格复制数据到另外一个表格,有两个匹配项,面下的程序可以运行,不报错,但是就是没结果。咋回事啊??
Dim i As Integer
Dim j As Integer
For i = 1 To 1000
For j = 1 To 346
If Sheets("国泰2").Range("A" & i) = Sheets("stata格式").Range("A" & j) And Sheets("国泰2").Range("c" & i) = Sheets("stata格式").Range("d" & j) Then
Sheets("国泰2").Select
Range("d" & i & ":" & "k" & i).Select
Selection.Copy
Sheets("stata格式").Select
Range("w" & j & ":" & "ad" & j).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
End If
Next j
Next i
End Sub
- Sub 复制人均GDP()
- '
- ' 对比复制GDP
- '
- Dim i As Integer
- Dim j As Integer
- Application.ScreenUpdating = False
- For i = 1 To 100
- For j = 1 To 100
-
- If Val(Sheets("国泰2").Range("A" & i).Value) = Sheets("stata格式").Range("A" & j).Value And Val(Sheets("国泰2").Range("c" & i).Value) = Sheets("stata格式").Range("d" & j).Value Then
-
-
- Sheets("国泰2").Select
- Range(Cells(i, "d"), Cells(i, "k")).Select
- Selection.Copy
- Sheets("stata格式").Select
- Range("w" & j).Select
- Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
- True, Transpose:=False
-
- End If
-
-
- Next j
- Next i
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|