vba可以把工作表已有的内容变成table吗？

hotf4zhl

请问vba可以让某些工作表的已有的数据变成table吗？例如用current.region之类的？

比如表格“HB”和“WW”已经是table。table可以是自带的名字，不用特意去命名。

下面是抓的代码，希望能有帮助

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$O$5"), , xlYes).Name = _
        "Table2"
    Range("Table2[#All]").Select
    ActiveSheet.ListObjects("Table2").TableStyle = ""

taller

参考代码

1. With ActiveSheet
   
2.     .ListObjects.Add(xlSrcRange, .[a1].CurrentRegion, , xlYes).Name = .Name & "Tab01"
   
3. End With

复制代码

hotf4zhl

taller 发表于 2020-2-27 13:22
参考代码

感谢！

请问如果需要选择两个以上的worksheet的数据同时变成表格应该怎么修改呢？ Activesheet 可不可以改成sheet select?或者用特定的名字？

还有如果想要TableStyle = ""的效果应该怎么修改呢？

hotf4zhl

有没有高手能帮忙解答一下？

taller

hotf4zhl 发表于 2020-2-27 15:23
感谢！

请问如果需要选择两个以上的worksheet的数据同时变成表格应该怎么修改呢？ Activesheet 可不可 ...

楼主所说的同时，只是都设置表格吧

1. Sub demo()
   
2.     For Each sht In Sheets
   
3.         With sht
   
4.             .ListObjects.Add(xlSrcRange, .[a1].CurrentRegion, , xlYes).Name = .Name & "Tab01"
   
5.         End With
   
6.     Next
   
7. End Sub
   

复制代码

hotf4zhl

taller 发表于 2020-2-28 08:17
楼主所说的同时，只是都设置表格吧

也不是都设置成表格，只是特定的几个表格。比如sheet1,sheet3的已有内容设置成表格其他的可以无视。

最后那个表格的格式可以改成 tablestaye=""吗？

taller

hotf4zhl 发表于 2020-2-28 08:59
也不是都设置成表格，只是特定的几个表格。比如sheet1,sheet3的已有内容设置成表格其他的可以无视。

...

能不能改，你自己试试不就知道了吗

hotf4zhl

taller 发表于 2020-2-28 11:58
能不能改，你自己试试不就知道了吗

我试了啊，但是缺少一切其他的语句。 如果能自己解决肯定也就不用求助了啊。

那么特定的几个工作表变成表格，这个要怎么修改呢？

hotf4zhl

有没有高手对表格的vba有研究？

taller

hotf4zhl 发表于 2020-2-28 21:09
我试了啊，但是缺少一切其他的语句。 如果能自己解决肯定也就不用求助了啊。

那么特定的几个工作表变 ...

1. Sub demo()
   
2.     For Each sht In Array("Sheet1", "Sheet2", "Sheet5")
   
3.         With Sheets(sht)
   
4.             .ListObjects.Add(xlSrcRange, .[a1].CurrentRegion, , xlYes).Name = .Name & "Tab01"
   
5.         End With
   
6.     Next
   
7. End Sub
   

复制代码