VBA/VBS
407c2289c
java.c
展开
-
Excel宏:表1重复行剪切至表2保存后另起一行
Application.ScreenUpdating = FalseSheet1.ActivateDim i, j As IntegerFor i = ActiveSheet.UsedRange.Rows.Count + 1 To 1 Step -1 For j = i - 1 To 1 Step -1 Select Case Cells(j, "B") Case "" Ro...原创 2018-10-19 15:34:51 · 576 阅读 · 0 评论 -
Excel宏:批量转化当前文件夹所有CSV2XLSX
Sub csv2xlsx() On Error Resume Next Application.ScreenUpdating = False fPath = ThisWorkbook.Path & "\" fName = Dir(fPath & "*.csv") Do While Len(fName) With Workbo...原创 2018-11-27 15:35:39 · 713 阅读 · 0 评论