2020年2月5日
今天写代码的一点心得！
摘要： 原来写程序是需要耐心和细心的，当然还要有一点点运气。 我从九点多输入完代码，感觉不太完美，就自己加入了一点点的小功能。 结果就出现了神奇的事情，一直提示程序定义或对象定义错误，花了两个多小时找问题， 逻辑部份应该是没有问题，然后就精减代码一点一点完成逻辑部分，最后居然是因为一个 小小的变量定义错误， 阅读全文
posted @ 2020-02-05 23:46 星翊 阅读(616) 评论(1) 推荐(0) 编辑
数据按列拆分（可选择）
摘要： Sub shi()Dim i, k, l As IntegerDim sht As Worksheetirow = Sheet1.Range("a65536").End(xlUp).Row l = InputBox("input name plase") For i = 2 To irowk = 0 阅读全文
posted @ 2020-02-05 23:34 星翊 阅读(252) 评论(2) 推荐(0) 编辑
按某列分表程序
摘要： Sub fenbiao()Dim sht As WorksheetDim i, k, irow As Integerirow = Sheet1.Range("a65536").End(xlUp).Row '定位表格最后一行 For i = 2 To irow k = 0 For Each sht I 阅读全文
posted @ 2020-02-05 23:01 星翊 阅读(261) 评论(0) 推荐(0) 编辑