求助：字符填充

luoyong1962

求助：请帮忙写一个公式，要求如附件：
求助.rar (7.89 KB, 下载次数: 34)

2018-1-2 10:11 上传

点击文件名下载附件

luoyong1962

急用！
请大家帮忙！

luoyong1962

自己顶起！

杨慧1234

Option Explicit

Sub 按钮3_Click()
'
' 按钮3_Click 宏
'

'
Dim i As Integer
Range("g:h").Clear
For i = 2 To Worksheets(1).Range("A65536").End(xlUp).Row
If Cells(i, 6) = "户主" Then
Cells(i, 7) = Cells(i, 2)
Else
Cells(i, 7) = ""
End If
Next i
Range("f2:g3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
End Sub
用了代码

gykg-excel

G2=LOOKUP(1,0/($F$2:F2="户主"),$B$2:B2)