B1=if(A1="工程名称","ABC")
然后向下拖拉
如果害怕破坏格式,那就用VBA吧
我帮你,不过需要根据你的文件定制,把文件传给我,我帮你做好
代码如下:
Sub test()
Dim i As Integer
For i = 1 To 10000 ' 循环到第1万行,可以自己根据需要设定
If ActiveSheet.Cells(i, 1) = "工程名称" Then '如果A列为 工程名称
ActiveSheet.Cells(i, 2) = "ABC" '将对应的B列设为 ABC
End If
Next i
End Sub
VBA的使用方法不用再说了吧?
B1输入=IF(A1="工程名称","ABC","")
B1
=IF(A1="工程名称","ABC","")
按住填充柄下拉,或双击填充柄。
楼主既然要用VBA解决,那就算了。
其实不用VBA也可以解决。
楼上都说的很清楚了。
B1
=IF(A1="工程名称","ABC","")
按住填充柄下拉,或双击填充柄。