- 博客(3)
- 收藏
- 关注
RSS订阅原创 vba 涉及合并取消合并单元格
Sub 加人()Dim i, j, k, bednum, sunum As IntegerDim xg As RangeDim stuname, gread As Stringstuname = InputBox("输入学生姓名")gread = InputBox("输入学生班级")sunum = InputBox("输入学生宿舍号")bednum = InputBox("输入学生床号") For i = 2 To Cells(Rows.Count, "k").End(x...
2021-07-20 10:21:06
951
原创 vba 把单元格值赋给数组并由数组写入单元格
Sub 把单元格值赋给数组()Dim ary()Dim i, j, k, rowall, columnall, rownum As Integerrownum = InputBox("输入标题行所占行数")rowall = Cells(Rows.Count, 1).End(xlUp).Rowcolumnall = Cells(1, Columns.Count).End(xlToLeft).Columnk = WorksheetFunction.Count(Range(Cells(1,...
2021-07-11 11:05:35
6192
原创 vba 数组填充单元格
Sub 数组填充单元格() Dim aaa(3, 3) Dim temp(0, 2) aaa(0, 0) = "姓名" aaa(0, 1) = "llll" aaa(0, 2) = "jjjj" aaa(1, 0) = "性别" aaa(1, 1) = "男" aaa(1, 2) = "女" aaa(2, 0) = "序号" aaa(2, 1) = "1" aaa(2, 2) = "2" Ra...
2021-07-11 10:55:28
1479
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人