如何在<em>EXCEL</em>中进行VBA编程-excel vba开发,excel vba实

可以用时间的一列zd用来做条件
比如说这一单元格cells（1,2）按一定格式输入时间
假设D盘Excel中一个sheet的第一内列为时间列
打开工作表
ActiveWorkbook.Open Filename:=ThisWorkbook.Path & "\" &strExcelName
With ActiveWorkbook.Sheets(“sheet”)
L=.Cells(65565, 1).End(xlup).Row
for i =1 to L
cells（1,2）=cells（i,1）
Next i
贴出记录
end with
我建议不要这样做应该建Access数据库先导数（D盘的Excel），
再用SQL语句容查找
strsql="select * from ta where 时间='" & cells(1,2) & "'"
rs.Open strsql, Conn
在贴出记录
.Cells(2, 1).CopyFromRecordset rs
这才花的查询时间少

当A1单元格显示复为PN，则把sheet2中的A1到C4区域复制到新建的sheet3中的制A2到C5区域。如果知A1单元格显示DP，则把sheet2中的A1到C1区域的内容复制到新建的sheet3中的A2到C2区域

这个真的没道有表述错误吗
其实个人感觉，大多数情况下可以用power query和函数来代替，这样就不用学了。
学习的话，如果没有基础还copy是有难度的，最简单的方法是先从记录宏开始，然后学习zd常量和变量，再学习循环语句，再多查百度，在问题解决的过程中学习。没有一蹴而就的办法的。

这个非要编程百吗？条件格式度可以不？

VBA代码如下：
Sub AAA()

If (ActiveSheet.Range("B2") = ActiveSheet.Range("B1")) Or (ActiveSheet.Range("B2") = ActiveSheet.Range("B3")) _
Or (ActiveSheet.Range("B2") = ActiveSheet.Range("A2")) Or (ActiveSheet.Range("B2") = ActiveSheet.Range("C2")) Then
ActiveSheet.Range("B2").Interior.ColorIndex = 3
End If

End Sub

相比之下，条版件格式更简单，如果用权VBA就必须执行宏