我有2个关键表表1和表2.从表2 -列B,基于唯一的值,多个新的数据库创建与表名称的基础上列值(为此,代码完成)对于所有新创建的表
1.插入2个新行,并在S2和R3中提供值
1.此外,我需要检查由用户在表1的D2提供的日期对所有的日期在新创建的列我的数据
1.如果日期匹配,则调用宏10,如果不显示错误,说“工作表名称”中的日期不匹配。是否仍要运行宏10。如果用户说是,则运行宏10,如果不结束子
我已经开始代码如下,但我坚持点2和3
Dim ws as Worksheet
Dim lastrow As Long
For Each ws in ActiveWorkbook.Worksheets
If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" Then
With ws
.Rows("1:2").Insert
.Range ("S2") = "OB"
.Range ("R3") = "AD"
字符串
有谁能帮我一下我该怎么办
2条答案
按热度按时间zzlelutf1#
你可以以此为基础
字符串
alen0pnh2#
请试试看。
字符串