带你入门VBA系列之：不懂的代码快点贴过来

rujie · 发表于 2023-1-13 18:30

老师帮忙解析下什么意思
Application.ScreenUpdating = False
Sheets("2").Select
Columns("S:S").Select
ActiveWorkbook.Worksheets("2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("2").Sort.SortFields.Add Key:=Range("S1"), SortOn _
      :=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("2").Sort
      .SetRange Range("S1:T2000")
      .Header = xlNo
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
End With
Sheets("4").Select

lushang2018 · 发表于 2023-1-13 23:47

chen7806 发表于 2006-6-8 13:01
我的一个问题,如何复制过去的数字不带格式.比如:Private Sub CommandButton1_Click() h = Sheets("sheet2") ...

.value=.value，只提取值，不复制格式

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