摘要：Sub xyf() Dim arr As New CollectionDim lindi_arr As New Collectionmaxnban = 0maxban = 0i = 1Do While Cells(i, 1).Value <> ""arr.Add Cells(i, 1).ValueI 阅读全文

摘要：Sub xyf() Dim arr()Dim arr1(1 To 3000) arr = Range("f1:f600") // 需要排序的列arr = Application.WorksheetFunction.Transpose(arr)arrconut = UBound(arr) b = 1F 阅读全文

摘要：黄色羽绒服 55.5 2/1胸 68.5 袖长 67 衣长绿色羽绒服 56 2/1胸 66 袖长海兰之家黄色我不爱的羽绒服 68.5 衣长 阅读全文

摘要：输入refedit命令并回车，当出现提示“选择参照”时点击一下图形（双击图形也可以），打开“参照编辑”对话框，点击“确定”，关闭对话框并弹出“参照编辑”工具条。点击工具条上有“-”号图形的“从工具集删除”按钮，AutoCAD提示“选择对象”，将整个图形选中并按回车键，再点击工具条上的“保存参照编辑” 阅读全文

摘要：方法2测试可行。方法1：将无用的图层关闭，全选，COPY 粘贴至一新文件中，那些无用的图层就不会贴过来。如果曾经在这个不要的图层中定义过块,又在另一图层中插入了这个块,那么这个不要的图层是不能用这种方法删除的。 方法2： 选择需要留下的图形，然后选择文件菜单->输出->块文件，这样的块文件就是选中部 阅读全文