VBA复制列表

Question

的整行，我有以下代码：

Sub test() 
Dim r As Range, rng As Range 
Set r = Range("a6", Range("a6").End(xlDown)) 
    For Each rng In r 
     If rng <> rng.Offset(-1) Then 'if range is not 
      Dim ws As Worksheet 
      Set ws = Worksheets.Add 
      ws.Name = rng 
     Else 
     End If 
    Next rng 
End Sub 

这会去通过A6到AXX的范围，并为不同名称的工作表。然而，我不知道如何将每一行的内容复制到每个创建的工作表中。

所以我希望所有的变化新浪体育讯北京时间被复制到新创建的工作表中股票的变化。

我知道有一些方法有以下：

Range(Cells(rng, 1), Cells(rng, 10)).Copy 

但我不知道怎么粘贴这些不同的工作表。 有人可以请教或指导。由于

还当我尝试运行此宏有时说：

这名已被尝试不同的一个。

但是，没有该名称的工作表。

Answer 1

您只需要参考/指定要使用的工作表。

试试这个（我包括一个输入框纠正表的名称，如果它已被占用。

Sub test_Nant() 
Dim r As Range, rng As Range, ws As Worksheet, aWs As Worksheet 
Set aWs = ActiveSheet 
Set ws = Worksheets.Add 
      On Error GoTo SheetRename 
      ws.Name = "Changes list" 
      GoTo KeepLooping 
SheetRename: 
      ws.Name = InputBox("Choose another name for that sheet : ", , rng.Value) 
      Resume Next 
KeepLooping: 
With aWs 
    Set r = .Range(.Range("a6"), .Range("a6").End(xlDown)) 
    For Each rng In r 
     If rng <> rng.Offset(-1) Then 'if range is not 
      .Range(.Cells(rng.Row, 1), .Cells(rng.Row, 10)).Copy Destination:=ws.Range("A1") 
     Else 
     End If 
    Next rng 
End With 
End Sub