如何用VBA解除无法插入行的问题

localzy

非常期待各位大神的帮助

3190496160

在整列都这是了超级表，还在插入行呢？取消超级表，或者只设置某些行为超级表

localzy

3190496160 发表于 2023-5-5 16:12
在整列都这是了超级表，还在插入行呢？取消超级表，或者只设置某些行为超级表

就是想用VBA解除这个

ykcbf1100

将超级表转换为普通表格的方法：
1、选取任意单元格区域。
2、选择【工具】选项卡中的【转换为区域】命令，并选择【是】命令。
3、删除多余行等。

localzy

ykcbf1100 发表于 2023-5-5 16:25
将超级表转换为普通表格的方法：
1、选取任意单元格区域。
2、选择【工具】选项卡中的【转换为区域】命令 ...

vba能解决这个问题不

ykcbf1100

localzy 发表于 2023-5-5 16:26
vba能解决这个问题不

这个都是一次性处理的，不用VBA吧。

localzy

ykcbf1100 发表于 2023-5-5 16:28
这个都是一次性处理的，不用VBA吧。

十几张表，不想手动操作

ykcbf1100

localzy 发表于 2023-5-5 16:29
十几张表，不想手动操作

没搞清楚，我是用了VBA后就再没用过超级表。

tanglf188

AB列删了，选个20行左右新套用表格格式就可以了，你原来的都套用到最后一行了，没有插入的空间了。

hansome221

1. Sub 宏1()
   
2. '
   
3. ' 宏1 宏
   
4. '
   
5. a = Sheets("Sheet1").Name
   
6.     Sheets.Add After:=ActiveSheet
   
7. Set b = ActiveSheet
   
8.     Sheets(a).Select
   
9.     Range("表5[[#Headers],[列1]]").Select
   
10.     Range(Selection, Selection.End(xlToRight)).Select
    
11.     Range(Selection, Selection.End(xlDown)).Select
    
12.     Selection.Copy
    
13.     b.Select
    
14.     Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    
15.         xlNone, SkipBlanks:=False, Transpose:=False
    
16.    
    
17.     Sheets(a).Delete
    
18.     b.Name = a
    
19. End Sub

复制代码

也许满足你的需求：新建一个sheet，内容复制过去，删除原sheet，修改sheet名称