vba语言怎么对excel的数据按日期排序。求具体代码-ZOL问答

4个回答默认排序

默认排序

按时间排序

其实也不用那么封复杂

这样做可能执行起来更快
1、把日期+代码+数值这三个字段的组合设置为表的一个唯一索引
2、对所有窗体中的记录
先insert 一次，（如果有相同的则会因为索引值重复不会成功）
再update

以上处理之前先用一句 on error resume next

取消评论

推荐

Sub a()
MsgBox [a1] = Date
End Sub

取消评论

danjuninkool1

两种方法：
一种是用筛选的方法：
Private Sub CommandButton1_Click()'把A列筛选为1Range(a1:c & Range(a65536).End(xlUp).Row).AutoFilter 1, 1'取筛选后最后一行的行标row1 = Range(a65536).End(xlUp).Row'把B列筛选后的第一个单元格等于11,以列的等于KRange(b2:b65536).SpecialCells(xlCellTypeVisible)(1) = 11Range(c2:c65536).SpecialCells(xlCellTypeVisible)(1) = k'把B列,c列向下填充Range(Range(b2:b65536).SpecialCells(xlCellTypeVisible)(1), Range(b & row1)).FillDownRange(Range(c2:c65536).SpecialCells(xlCellTypeVisible)(1), Range(c & row1)).FillDownEnd Sub二种是用for循环
Private Sub CommandButton1_Click()For i = 2 To Range(a65536).End(xlUp).RowIf Range(a & i) = 1 Then Range(b & i) = 11 Range(c & i) = kEnd IfNext iEnd Sub

取消评论

EchoGee

请查阅有关
WORKDAY.INTL 函数的使用方法，正好解决你的问题追问 : 谢谢. WORKDAY.INTL 这个函数是2010版里的?我的EXCEL是2003的.好像没有哦. 因为假期一年非常多,且不固定,所以最好能VBA实现.

取消评论

4个回答默认排序

默认排序

按时间排序

推荐

最新回答更多>

产品比一比查看详情 >>

相关问答

热门手机排行

扩展阅读

举报

举报成功

私信

删除

数码爱好者必备神器

中关村在线客户端

4个回答 默认排序 默认排序 按时间排序

推荐

最新回答 更多>

产品比一比查看详情 >>

相关问答

热门手机排行

扩展阅读

举报

举报成功

私信

删除

4个回答默认排序

默认排序

按时间排序

最新回答更多>