求教各位大神！如何批量在B列每个单元格区前面加上武汉市三个字

everbest2015

Sub test()
    Dim ar, r&, i&, st As Worksheet
    With Sheet2
        r = .Range("a" & Rows.Count).End(xlUp).Row
        ar = Range("a1:d" & r)
        For i = 2 To UBound(ar)
                ar(i, 2) = "武汉市" & ar(i, 2)
                .[a1].Resize(r, 4) = ar
        Next
    End With
    Set st = Sheet2
    With st.UsedRange
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .EntireRow.AutoFit
            .EntireColumn.AutoFit
    End With
End Sub

sonia_a

选取B列，打开自定义格式。在类型下方改为“武汉市@”。以后只需输入区可以在最前面自动显示“武汉市”

aizai2006nian

sonia_a 发表于 2018-9-13 15:59
选取B列，打开自定义格式。在类型下方改为“武汉市@”。以后只需输入区可以在最前面自动显示“武汉市”

这个厉害！不过其实主要还是在原有数据上修改，因为不同系统导出的地名不一致。