阅读下一篇
希望各大神能帮一下！理正挡土墙相关问题？理正挡土墙相关问题该帖被浏览了25次 | 回复了1次各位大神好啊，小弟又来提问了，因为我们单位一直用海地画图，我现在因为工作上的提高，在用理正，下边把学习中出现的问题在这说一下希望各大神能帮一下，小弟在线等1，理正好象不能跟海地一样把数据导就可以了，因为海地是可以导入横断面，之后浏览帽子，就知道我那一段要加挡墙。但理正不行，我在界面上都是先的墙体高啊这些挡土强的数据，而我人用在那一段路上这个数据，没有方输入，还有就是挡墙长度，这个不象海地设计中就能见到，理正中见不到我设计的挡墙从那到那。更加别说地面线了！
回帖成功
经验值 +10
全部回复（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键。
回复 举报