高手,VBA中怎么对一个新增工作薄进行单元格定位?

yiyaozjk

VBA中,首先新增一个新工作薄 Sheets.Add,对其他原来的表进行操作后,怎么才能操作此这个刚刚新增的工作薄?

    比如我,在一个已有二个工作薄的表格里,首先让他新一个工作薄,然后将满足条件的单元格的内容复制到这个新增的工作薄指定位置??

  Private Sub Workbook_Open()
  Dim i, j As Integer
  Dim a, b As String
  Sheets.Add
  Sheet1.Select
    For i = 3 To 150
         If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
             i = i + 1
         Else
             If Cells(i, 10) <> "=" Then
                 For j = 1 To 10
                  If Cells(i, j) <> "" Then
                    a = Trim(Cells(i, j) & Cells(i, j))
                   Sheets.Cells(i, 2) = a                   ''我本来想把内容复制到新增的工作薄中去
                    End If
                    
                 Next j
         End If
      
End Sub
要怎么修改???

pureshadow

Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste

方漠

试试用个变量传递一下.  

Dim a, b As String
Dim SH as String
  Sheets.Add
  SH=ActiveSheet.Name
  Sheet1.Select
...........
Sheets(SH).Cells(i, 2) = a

[ 本帖最后由 方漠 于 2008-11-10 15:20 编辑 ]

yiyaozjk

你是好样的