从SHEET1复制到SHEET2,想请教下论坛的朋友

fire9999456 · 发表于 2016-1-3 23:27

有一个表，要求把sheet2中符合条件的单元格区域复制到sheet1。现在我只能做不完全复制，想请教下论坛的各位朋友。

fire9999456 · 发表于 2016-1-3 23:27

Sub 复制成绩之不完全复制()
Dim A As String
  Dim K, I As Integer

   For I = 2 To 38
   K = StrComp(Worksheets(2).Range("B" & 2), Worksheets(1).Range("B" & I), vbTextCompare)
      If K = 0 Then
      Worksheets(2).Range("C" & "2:" & "Y" & "2").Copy Worksheets(1).Range("D" & I)
      End If
   Next I

End Sub

fire9999456 · 发表于 2016-1-3 23:28

现在我只能做到不完全复制

wangbiwensyc · 发表于 2016-1-5 10:04

本帖最后由 wangbiwensyc 于 2016-1-5 10:09 编辑

Sub x1()
Dim arr
Sheets("sheet1").Range("d2:z38") = ""
arr = Sheets("sheet1").Range("b2:z38")
For x = 1 To 37
For K = 1 To 23
arr(x, K + 2) = Application.VLookup(arr(x, 1), Sheets("sheet2").Range("b2:y38"), K + 1, False)
Next K
Next x
Sheets("sheet1").Range("b2").Resize(37, 25) = arr
End Sub

fire9999456 · 发表于 2016-1-7 22:23

朋友，能想到vlookup很厉害， sheet("sheet1").range("d2:z38")=""这个是什么意思？

wangbiwensyc · 发表于 2016-1-15 09:25

fire9999456 发表于 2016-1-7 22:23
朋友，能想到vlookup很厉害， sheet("sheet1").range("d2:z38")=""这个是什么意思？

先把sheet1中的d2:z38单元格清空

dxjx0001 · 发表于 2016-6-24 15:30

不需VBA，D2输入公式 =INDEX(Sheet2!$A$1:$Z$40,MATCH($B2,Sheet2!$B:$B,0),MATCH(D$1,Sheet2!$1:$1,0))
向右向下填充，完工

		自动登录	找回密码
密码			免费注册