查找excel 每行最后一个数值所在的单元格位置？

Question

如题所述

Answer 1

如果数据量很大的话，建议用VBA宏，双重循环FOR
NEXT，从大到小256
TO
1。IF判断是否为空，第一个不为空值的单元格Cell(x,y)便是。
以下为代码：运行ALT+F8,回车就行。
Sub
末列号()
Dim
x,
y,
z
Dim
n
Worksheets(1).Activate
'先激活工作表
Sheets(1).Select
For
x
=
1
To
6000
z
=
0
n
=
2
For
y
=
256
To
n
Step
-1
If
Sheets(1).Cells(x,
y)
<>
0
Then
z
=
z
+
1
n
=
y
End
If
If
z
=
1
Then
Sheets(1).Select
Cells(x,
1)
=
y
z
=
z
+
1
End
If
Next
Next
End
Sub