求教,如何实现列的排序

yxzp110 · 发表于 2021-8-24 11:21

本帖最后由 yxzp110 于 2021-8-25 09:56 编辑

让每一行数据格式统一,而不是现在这么乱

已上传附件,请大神帮忙

lss001 · 发表于 2021-8-24 14:53

本帖最后由 lss001 于 2021-9-18 02:57 编辑

'先选择要排序行(单行/不包括第1列)→数据→排序→排序选项:按行排序

'或者执行以下代码→
Sub 按行排序()

For i = 2 To Cells(Rows.Count, 2).End(3).Row
Range(Cells(i, 2), Cells(i, 4).Sort Cells(i, 2), 1 '1升/2降
Next

End Sub

梅州 · 发表于 2021-8-24 16:15

上传附件，大家才能帮你

		自动登录	找回密码
密码			免费注册

[已解决] 求教,如何实现列的排序

评分