|
楼主 |
发表于 2011-7-25 22:46
|
显示全部楼层
回复 爱疯 的帖子
注释掉了全表字体和字号,如果必须,最好指定一个具体范围,不设置cells(所有单元格)。 这个没有看懂是什么意思结果表的F2单元格,用技巧方式设置了数据有效性,以保证只允许在F2输入日期值。 对季度判断,是希望这样吗?是希望这样,
下面的语句大体能解决上述问题了。请爱疯老师看看,下面的语句有没有需要优化的?谢谢了
t1 = [C21].Value
'一、从【数据源】中将涉及的数据提取出来导入到【结果表】,并去掉客户名称的引号
With Sheet2 '【数据源】
arr1 = .Range("a6:f" & .[b65536].End(3).Row).Value
ReDim arr2(1 To UBound(arr1), 1 To 6)
For i = 1 To UBound(arr1) 'For i = 1 To Myr1等效
If Mid(arr1(i, 2), 6, 4) = "某某网点名称" Then
If Left(arr1(i, 6), 6) = t1 - 2 Or Left(arr1(i, 6), 6) = t1 - 1 Or Left(arr1(i, 6), 6) = t1 Then'提取一个季度的数据
k = k + 1
arr2(k, 1) = arr1(i, 1) '机构号
arr2(k, 2) = arr1(i, 3) '客户号
arr2(k, 3) = Mid(arr1(i, 4), 3, Len(arr1(i, 4)) - 4) '客户名称,去掉引号
arr2(k, 5) = arr1(i, 5) '开通的服务品种
arr2(k, 6) = Left(arr1(i, 6), 4) & "-" & Mid(arr1(i, 6), 5, 2) & "-" & Mid(arr1(i, 6), 7, 2) '修改日期格式 End If
End If
Next
End With
|
|