excel 列表转换为区域 代码怎么写?

发布网友 发布时间：2022-04-24 04:23

我来回答

共2个回答

热心网友 时间：2023-10-27 17:19

Sub 智能表转区域()
'遍历所有工作表中的智能表，转为区域
Dim wrksht As Worksheet
Dim objListObj As ListObject
For Each wrksht In Worksheets
For Each objListObj In wrksht.ListObjects
objListObj.Unlist
Next
Next
End Sub

热心网友 时间：2023-10-27 17:20

ListObjects(1).Unlist

Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

热心网友 时间：2023-10-27 17:19

Sub 智能表转区域()
'遍历所有工作表中的智能表，转为区域
Dim wrksht As Worksheet
Dim objListObj As ListObject
For Each wrksht In Worksheets
For Each objListObj In wrksht.ListObjects
objListObj.Unlist
Next
Next
End Sub

热心网友 时间：2023-10-27 17:20

ListObjects(1).Unlist

Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

热心网友 时间：2023-10-27 17:19

Sub 智能表转区域()
'遍历所有工作表中的智能表，转为区域
Dim wrksht As Worksheet
Dim objListObj As ListObject
For Each wrksht In Worksheets
For Each objListObj In wrksht.ListObjects
objListObj.Unlist
Next
Next
End Sub

热心网友 时间：2023-10-27 17:20

ListObjects(1).Unlist

Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False