[已解决]请教：请教：工作表的拆分

caolzh

请教：怎样将表总表中，A列相同的名称，生成表1，表2.。。“爱疯 ”回答了但我执行不了，报错见图

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-4 16:56

请测试一下：我已经测试过了，应该没有问题：

跳转到最佳答案楼层

爱疯

http://www.excelpx.com/forum.php?mod=redirect&goto=findpost&ptid=297695&pid=3598468

刚才更新了下，下载44楼的附件试试？

没法测试，不知道行不行

caolzh

可以远程协助下吗？QQ136789017

zjdh

检查一下，控件引用是否丢失啦。

yyyydddd8888

请测试一下：我已经测试过了，应该没有问题：

爱疯

zjdh 发表于 2013-12-4 16:35
检查一下，控件引用是否丢失啦。

谢谢zjdh

我也忘了里面用过这个控件，不管怎样先看看引用里是否存在“丢失”的控件？
如果有，就取消，正好楼主的问题里，可不用这个控件。

由于1楼图看上去说的是“format函数找不到”，我不知道加上"vba." ，能否好？

yanhj

Private Sub CommandButton1_Click()
k = Sheets(1).Range("A65536").End(xlUp).Row
For i = 1 To k
  If Sheets(1).Cells(i, 1) <> Sheets(1).Cells(i + 1, 1) Then
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "表" & Worksheets.Count - 1
    kx = 1
    ActiveSheet.Cells(kx, 1) = Sheets(1).Cells(1, 1)
    ActiveSheet.Cells(kx, 2) = Sheets(1).Cells(1, 2)
    ActiveSheet.Cells(kx, 3) = Sheets(1).Cells(1, 3)
    ActiveSheet.Cells(kx, 4) = Sheets(1).Cells(1, 4)
    ActiveSheet.Cells(kx, 5) = Sheets(1).Cells(1, 5)
    ActiveSheet.Cells(kx, 6) = Sheets(1).Cells(1, 6)
    kx = 2
    ActiveSheet.Cells(kx, 1) = Sheets(1).Cells(i + 1, 1)
    ActiveSheet.Cells(kx, 2) = Sheets(1).Cells(i + 1, 2)
    ActiveSheet.Cells(kx, 3) = Sheets(1).Cells(i + 1, 3)
    ActiveSheet.Cells(kx, 4) = Sheets(1).Cells(i + 1, 4)
    ActiveSheet.Cells(kx, 5) = Sheets(1).Cells(i + 1, 5)
    ActiveSheet.Cells(kx, 6) = Sheets(1).Cells(i + 1, 6)
    Else
    ActiveSheet.Cells(kx, 1) = Sheets(1).Cells(i + 1, 1)
    ActiveSheet.Cells(kx, 2) = Sheets(1).Cells(i + 1, 2)
    ActiveSheet.Cells(kx, 3) = Sheets(1).Cells(i + 1, 3)
    ActiveSheet.Cells(kx, 4) = Sheets(1).Cells(i + 1, 4)
    ActiveSheet.Cells(kx, 5) = Sheets(1).Cells(i + 1, 5)
    ActiveSheet.Cells(kx, 6) = Sheets(1).Cells(i + 1, 6)
  End If
  kx = kx + 1
Next
End Sub

caolzh

谢谢！使用正常

caolzh

怎样修改下将名称列变成表名

yyyydddd8888

caolzh 发表于 2013-12-5 10:56
怎样修改下将名称列变成表名

请看是不是这样？
请教怎样拆分表.rar (28.53 KB, 下载次数: 9)

2013-12-5 11:15 上传

点击文件名下载附件