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

a8598048

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) <> ""
   Windows("汇总.xls").Activate
  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
   Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

zwb86

2013-7-3 16:51

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

复制一个表中多列分别存在另一个表的不同SHEET中
为什么我写的代码循环到第7条就不好使了呢？
问题出在哪里？？？
求大侠帮忙

zwb86

发错了  编辑掉

a8598048

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

我这是两个问题啊
而且这个比较急
请帮忙看下这个
谢谢！

a8598048

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

我这个不是另存为
就是复制到这个表里的不同SHEET里
循环到第7列就不使了

a8598048

求版主帮忙啊！@@@！！！

zwb86

兄台 把你这两个文件发上来看看
你就说循环到第七列就退出了 谁知道你的第七列是什么东西  问题出在哪怎么可能知道？
你问到啥时候也不会有人回复你的

a8598048

zwb86 发表于 2013-7-3 15:50
兄台 把你这两个文件发上来看看
你就说循环到第七列就退出了 谁知道你的第七列是什么东西  问题出在哪怎么 ...

哦好的现在给你发

a8598048

请看吧

a8598048

{:091:}