VB+Excel
William_Dong
Focus on machine learning, data mining, and text mining.
Research about text mining and social media analytics.
展开
-
VB把一个Excel中的部分数据Copy到另一个Excel表中
Sub CopyData() Dim r1 As Range Dim r2 As Range Dim w As Workbook ThisWorkbook.Activate Set r1 = ThisWorkbook.Sheets(1).[a1] Set r2 = ThisWorkbook.Sheets(1).[c1] Set w =原创 2014-04-11 21:19:23 · 17816 阅读 · 0 评论 -
EXCEL VB自定义宏对worksheet简单计算
第一个Sub Test()Dim i As IntegerFor j = 2 To 20numerator = Cells(j, 3)s = 0targerID = Cells(j, 2)For i = 2 To 20If Cells(i, 2) = targerID Thens = s + Cells(i, 3)End IfNext i原创 2015-04-12 22:42:53 · 1145 阅读 · 0 评论