2023-03-10 00:33来源:m.sf1369.com作者:宇宇
VBA里面的每一个end if都必须有if配对,单行的if不需要end if,可以粘贴你的代码帮你修改,必须是文本方式,拷屏图片无法修改的。
举例说明。
第一步:点击office按钮-excel选项。如图:
第二步:对“在功能区显示”开发工具栏“ 打勾。如图:
第三步:点击开发工具-visual basic。如图:
第四步:插入模块。如图:
这样就可以开始编写代码了 。
你显示是日期格式,设置单元格为文本格式就可以了,或者,设置日期格式为选择时间格式和你录入的顺序相同的就好了。
Sub s()
Dim rg As Range
Set rg = [a39:ad1308]
Set d = CreateObject(scripting.dictionary)
arr = rg
rg.ClearContents
For i = 1 To 30
For j = 1 To 1270
d(arr(j, i)) =
Next
Next
k = 1
For Each c In d.keys
[a38:j1308].Item(k) = c
k = k + 1
Next
End Sub
条件格式中有一个突出显示重复值,用不上VBA
1、选中数据所在的列
2、依次点击:开始--》条件格式--》突出显示单元格规则--》重复值
变了颜色的就是重复的
如果用VBA做,可以需要用for和if判断一下
If Cells(i, 1).Value = ECR03 Then
For j = 2 To
row
wb.Sheets(rnc).Rows(i).Copy wb.Sheets(sheet1).Rows(j)
Next j
End If
Next i