求助：字符填充

luoyong1962 · 发表于 2018-1-2 10:12

求助：请帮忙写一个公式，要求如附件：

求助.rar (7.89 KB, 下载次数: 34)

luoyong1962 · 发表于 2018-1-2 10:14

急用！
请大家帮忙！

luoyong1962 · 发表于 2018-1-2 12:27

自己顶起！

杨慧1234 · 发表于 2018-1-3 14:57

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 · 发表于 2018-1-8 15:14

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

		自动登录	找回密码
密码			免费注册