excell

最新推荐文章于 2022-11-02 19:22:33 发布

新溪-gordon

最新推荐文章于 2022-11-02 19:22:33 发布

阅读量84

点赞数

分类专栏： excel test

本文链接：https://blog.csdn.net/z416177937/article/details/83967700

版权

excel test 专栏收录该内容

1 篇文章 0 订阅

订阅专栏




Public Sub test()
Dim i, j As Integer
Dim province, value, province2, value2 As String

For i = 2 To Sheet2.UsedRange.Rows.Count
    province = Sheet2.Cells(i, 1)
    value = Sheet2.Cells(i, 4)

        If InStr(1, province, "省") > 0 Then
            Sheet5.Cells(i, 1) = Left(province, InStr(1, province, "省") - 1)
            Sheet5.Cells(i, 2) = value
        Else
            If InStr(1, province, " ") > 0 Then
            Sheet5.Cells(i, 1) = Left(province, InStr(1, province, " ") - 1)
            Sheet5.Cells(i, 2) = value

            Else

            Sheet5.Cells(i, 1) = province
            Sheet5.Cells(i, 2) = value
            End If
        End If


Next i

End Sub