如果表"数据"中C9不为空,就在其它表格中的BG1返回1;
如果表"数据"中D9不为空,就在其它表格中的BH1返回1;
一直到如果表"数据"中Z9不为空,就在其它表格中的CD1返回1;
请问这个循环要怎么写啊?
你粘贴这些累不累
谢谢老师,我忘记上图了,现在修改不成功.
其它工作表就是有 "数据2",外加 "1","2"......."20",一共21个工作表.
这个工作表帮忙写个循环
呃,是什么意思,没搞懂,是如果C9不为空,就将C9的内容写入你说的这些全部工作表中的BG1吗?
追问是啊,就是这个意思,我问的时候忘记放图了,所以就用文字追问了一下. 表"数据2"加上 表"1"-表"20",共21个工作表
追答将内容填入除了数据工作表外的其他表格:
Sub XX()
Dim i%, j As Worksheet
For Each j In Worksheets
If j.Name "数据" Then
For i = 3 To [z1].Column
If Worksheets("数据").Cells(9, i) "" Then
j.Cells(1, [BG1].Column + i - 3) = 1
End If
Next i
End If
Next j
End Sub