前辈些，怎样将cad中表格转成excle表格呢。最好在常青藤软件中怎样操作？
前辈些，怎样将cad中表格转成excle表格呢。最好在常青藤软件中怎样操作？
2楼
注意：由于没有看到你表格的具体情况。
所以如果执行代码后，删除你不想删除内容
请不要保存。重新打开窗口即可。
按ALT+F11进入VBE窗口
插入模块
输入以下代码：
Sub dsr()
Dim arr, arr1()
arr = Range("a1").CurrentRegion
x = UBound(arr)
y = UBound(arr, 2)
ReDim arr1(1 To x * y, 1 To 1)
For yy = 1 To y
For xx = 1 To x
If arr(xx, yy) <> "" Then
k = k + 1
arr1(k, 1) = arr(xx, yy)
End If
Next xx
Next yy
Cells = ""
Range("a1").Resize(k, 1) = arr1
End Sub
完成后按F5键。
回复
3楼
以上是在网上搜的内容，希望能帮到你
回复
