请vba高手指点,excel数据批量右对齐!!!
4个回答
展开全部
追问
衷心的谢谢您!!!
展开全部
sub test()
dim rng as range
dim brr()
dim n
with activesheet
set rng =.usedrange
arr=rng
redim brr(1 to ubound(arr,1),1 to ubound(arr,2))
for i=1 to ubound(arr,1)
n=ubound(arr,2)
for j=ubound(arr,2) to 1 step -1
if arr(i,j)<>"" then
brr(i,n)=arr(i,j)
n=n-1
end if
next
next
rng=brr
end with
end sub
用宏吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
公式
J1=IF(OR(COLUMN(A1)=COUNTIF($A1:$G1,""),ISERROR(INDEX($A1:$G1,COLUMN(A1)-COUNTIF($A1:$G1,"")))),"",INDEX($A1:$G1,COLUMN(A1)-COUNTIF($A1:$G1,"")))
右拉,下拉
J1=IF(OR(COLUMN(A1)=COUNTIF($A1:$G1,""),ISERROR(INDEX($A1:$G1,COLUMN(A1)-COUNTIF($A1:$G1,"")))),"",INDEX($A1:$G1,COLUMN(A1)-COUNTIF($A1:$G1,"")))
右拉,下拉
追问
衷心的谢谢您!!!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用公式就能做到,要公式吗?!
追问
行,太好了,请赐教!!!
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询