【电脑安全必读】不在于你装多少杀毒软件

530001882 · 发表于 2012-11-25 16:31

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww

zwu881107 · 发表于 2012-11-25 16:42

看看！！！！！

paruker · 发表于 2012-11-26 22:05

看看楼主的怎么个说法

宋颜颜 · 发表于 2012-11-29 16:04

hao ahao hao

zhangxinlu1228 · 发表于 2012-12-3 11:37

看看到底是不是

wangmang · 发表于 2012-12-3 21:34

真的吗真的吗？

rocket05c · 发表于 2012-12-5 10:00

看看，学习之以备不时之需

这个世界很疯狂 · 发表于 2012-12-13 20:09

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

飞翔915735512 · 发表于 2012-12-15 20:42

学习一下哈哈，看看有什么绝招。

m13574328672 · 发表于 2012-12-15 21:02

呵呵，看看。。。。。。。。。。。。。。。。。。。

[技巧] 【电脑安全必读】不在于你装多少杀毒软件

浏览过的版块

斑竹勋章