所有的编程语言都是一样滴,好喜欢解决问题的工作!虽然现在做的很简单。
开启excel中使用vba的方法,工具栏—>开发工具—>VB,这就是个直接可以用的编程环境好嘛!!然后第一次使用VB语言,用习惯了面向对象语言之后,再用这种过程+括号的语言竟然不习惯了(上学时候学的C语言都还给老师了嘛!?悲怆脸)
一顿查询和测试之后,程式化的运行成功了helloWorld程序,写好了昨天用20行python代码解决的同一个问题代码。其实很简单哇!!
为自己能解决问题并且迅速掌握一门新(老旧)语言欢呼一下!(小学生嘛啊喂!)
遗留问题:跨文件处理没有搞定,表格比较少,直接把两个工作表复制在一个工作簿中实现的工作。
Sub aa()
For i = 3 To Sheet7.UsedRange.Rows.Count
newShelf = LCase(Sheet7.Cells(i, 1))
For j = 2 To Sheet4.UsedRange.Rows.Count
oldShelf = LCase(Sheet4.Cells(j, 1))
If (StrComp(newShelf, oldShelf) = 0) Then
Sheet4.Cells(j, 2) = Sheet7.Cells(i, 10)
End If
Next
Next
End Sub