带—符号，类型不匹配

不知道为什么

ayouxiaopy 发表于 2018-6-25 20:16
大部分是数值，但也有一部分字符串，希望可以改成全部都可以包容的

应该说数据是什么你就定义什么，譬如 你 dim i as string 了，就不可以 让 for i=0 to ? ,这里的i 又是数值，这不矛盾？所以，你可以  dim i as interge,或者  for  j=0 to ? .

ayouxiaopy

刚才在家里自己做了一个类似的工作表，请各位亲，帮忙看一下，谢谢了，

ayouxiaopy

liulang0808 发表于 2018-6-25 20:15
还是建议楼主想办法上传附件吧楼主的for循环对a进行判断？这个for循环有意义吗

已上传附件，麻烦请帮忙看下

ayouxiaopy

不知道为什么 发表于 2018-6-25 20:15
可以，把你的附件发上来，会有老师帮你的哦

已上传附件，麻烦亲帮忙看下

liulang0808

加“-”肯定要报错的啊
for循环语句变量对应的范围是数值啊

ayouxiaopy

liulang0808 发表于 2018-6-25 21:59
加“-”肯定要报错的啊
for循环语句变量对应的范围是数值啊

能帮我改一下么？具体目的就是每次点击以b1单元格内容为名字，在项目汇总一栏表中生成新的工作表，最后汇总所有工作表到项目汇总表，谢谢了，最后一次说话机会了

liulang0808

1. Sub 项目汇总表()
   
2.     Application.ScreenUpdating = False
   
3.     Dim a As Variant, i As String
   
4.     a = Range("B1")
   
5.     Set sh = ActiveSheet
   
6.     If a = 0 Then
   
7.         MsgBox "已存在"
   
8.     Else
   
9.    
   
10.         With Workbooks.Open(ThisWorkbook.Path & "\项目汇总一览表.xlsm")
    
11.         Worksheets.Add after:=.Sheets("项目汇总表")
    
12.         ActiveSheet.Name = sh.Range("B1")
    
13.         sh.Range("A2:O30").Copy ActiveSheet.Range("A1")
    
14.         End With
    
15.     End If
    
16.    
    
17.    
    
18.     Application.ScreenUpdating = False
    
19. 
    
20. 
    
21. End Sub

复制代码

liulang0808

附件内容供参考。。。

ayouxiaopy

liulang0808 发表于 2018-6-25 22:19
附件内容供参考。。。

谢谢你啊，昨天回复次数用完了，拖到今天才跟您道谢

ayouxiaopy

liulang0808 发表于 2018-6-25 22:18

这个代码可以用，但是每次生成的新表会覆盖掉上次生成的表