前端页面模板搜索引擎seo推广
Sub hb()Dim nn = 3For i = 3 To 18If Range("b" & i) <> Range("b" & i + 1) ThenRange("b" & n & ":b" & i).Mergen = i + 1End IfNextEnd Sub
Sub hb()Dim nn = 3For i = 3 To 18If Range("b" & i) <> Range("b" & i + 1) ThenRange("b" & n & ":b" & i).Mergen = i + 1End IfNextEnd Sub