Excel宏搜索和替换单元格

问题描述 投票:-1回答:1

[请帮助我要使用宏在excel中清除数据。

之前:

enter image description here

之后:

enter image description here

所以我需要建议函数宏以在MASTER中用参数搜索数据。之后,宏可以显示结果与该数据匹配的参数]

编辑说明:我只是想知道我可以在宏中使用什么功能来解决这个问题。不要为我的问题请求完整的宏。对不起,所有

excel vba
1个回答
0
投票
This macro may solve your purpose. 
Column A has value, result will be in the column B


   Sub test1()
    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook

    Set ws = wb.Worksheets("Sheet1")


    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row


    For I = 1 To LastRow
        Text = ws.Cells(I, 1).Value
        Array = Split(Text, " ")
        ws.Cells(I, 2).Value = Array(1)

    Next

    End Sub
© www.soinside.com 2019 - 2024. All rights reserved.