EXCEL宏中需要将单元格数据复制到另一单元格中怎么写

问题太多zd了，我重新写代专码给你：属

Sub Text()
Dim m%, n%
n = 2
Sheets("Sheet1").Range("Q:T").Clear
With Sheets("Sheet2")
   For m = 2 To .Cells(20000, "N").End(3).Row
      If .Cells(m, "N") = "是" Then
         Sheets("Sheet1").Cells(n, "q").Resize(, 4) = Array(.Cells(m, "H"), .Cells(m, "I"), .Cells(m, "J"), .Cells(m, "K"))
         n = n + 1
      End If
   Next
End With
End Sub

Sheets("sheet1").Range("a3").Copy (Sheets("sheet2").Range("f1"))

这个是百复制单元格 并全部度粘贴 包括格问式……

如果只答想 让sheet2 F1 值等于 sheet1 A3 值的话 可以使用专如下代码…属…

Sheets("sheet3").Range("f1") = Sheets("sheet1").Range("a3")
Dim Book2 As Workbook
Dim tmpSt As Worksheet

Set Book2 = Workbooks("2")

For Each tmpSt In ActiveWorkbook.Sheets
tmpSt.Activate
tmpSt.Cells.Select
Application.CutCopyMode = False
Selection.Copy

Select Case tmpSt.Name
Case "A"
Book2.Sheets("数据1").Activate
Case "B"
Book2.Sheets("数据2").Activate
Case "C"
Book2.Sheets("数据3").Activate
Case "D"
Book2.Sheets("数据4").Activate
Case "E"
Book2.Sheets("数据5").Activate
Case "F"
Book2.Sheets("数据6").Activate
Case "G"
Book2.Sheets("数据7").Activate
Case "H"
Book2.Sheets("数据8").Activate
End Select

ActiveSheet.Paste

Next

前提是表e69da5e887aae79fa5e981933381和2要打开，在表1运行。而且两个表的表名按你所述是已经建立的，如果表名不对应，将会运行错误。

ActiveCell.Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Sheet1").Select

选定copy单元格之后，运行百程序即可复度制自定义知选择的单元格，粘贴道到A2