[已解决]复制表中I列到另一个表不同SHEET里

zwb86

Sub 按钮68_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
  Dim i As Integer
  i = 1
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "汇总.xls"
Do While Cells(1, i) <> ""
  
  Sheets("sheet6").Select
  Cells(1, i).Resize(100, 1).Copy
   Windows("CPK.xls").Activate
    Sheets(i + 1).Select
   Range("A2").Select
   ActiveSheet.Paste
    i = i + 1
     Windows("汇总.xls").Activate
     If i + 1 > Workbooks("CPK.xls").Sheets.Count Then
     Exit Do
     End If
   Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

a8598048

zwb86 发表于 2013-7-3 16:51
Sub 按钮68_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

大哥这个问题可以慢慢解决
帮我看看那个问题好么？
我发附件了
你现在可以看见
谢谢了

zwb86

a8598048 发表于 2013-7-3 17:07
大哥这个问题可以慢慢解决
帮我看看那个问题好么？
我发附件了

我发在这个帖子的就是你要的代码啊

a8598048

zwb86 发表于 2013-7-3 17:33
我发在这个帖子的就是你要的代码啊

恩呢 好用了~
我开始没看清楚
谢谢了
但是为啥加这么一句就好用了呢？
If i + 1 > Workbooks("CPK.xls").Sheets.Count Then
  Exit Do

a8598048

zwb86 发表于 2013-7-3 17:33
我发在这个帖子的就是你要的代码啊

哦 不对 是加了这一句就好用了
Windows("汇总.xls").Activate
我在循环开始也加了这句啊
为啥在结尾还要加呢？

a8598048

zwb86 发表于 2013-7-3 17:33
我发在这个帖子的就是你要的代码啊

哦， 我明白了 开头那句根本没用
应该复制后去激活原来的
谢谢啊{:091:}