2017年8月21日
2017-08-21xlVBASplitSheetsSameTime
摘要： f 阅读全文
posted @ 2017-08-21 14:14 wangway 阅读(116) 评论(0) 推荐(0) 编辑
20170821xlVBA跨表公式套用
摘要： Public Sub CopyModelHideBlankRows() AppSettings Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Dim RngAddress As String, Rng As Range, Sht As Workshee... 阅读全文
posted @ 2017-08-21 09:05 wangway 阅读(455) 评论(0) 推荐(0) 编辑
20170821xlVBA隐藏空行
摘要： Sub HideBlankRowsBetweenUsedRange() Dim URows As Range, i As Long, EndRow As Long With ActiveSheet EndRow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row... 阅读全文
posted @ 2017-08-21 09:03 wangway 阅读(371) 评论(0) 推荐(0) 编辑