- 博客(2)
- 收藏
- 关注
RSS订阅原创 VBA循环语句
VBA–循环语句 1.Do Loop (1)Do while Sub t1() x = 1 Do While x < 18 x = x + 1 Cells(x, 4) = Cells(x, 2) * Cells(x, 3) Loop End Sub (2)Do until Sub t2() Dim x As Integer x = 1 Do x = x + 1 Cells(x, 4) = C...
2020-03-18 22:23:51
462
原创 VBA工作表操作之拆分工作表
VBA–同一个工作簿中如何拆分工作表 Sub 拆分工作表() Dim sht As Worksheet Dim wb As Workbook For Each sht In Worksheets sht.Copy Set wb = ActiveWorkbook wb.SaveAs Filename:=thisworkbook.path & “” & Sheets(1).Name &...
2020-03-18 00:05:27
1125
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人