|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub test() 'https://club.excelhome.net/thread-1639231-1-1.html
Dim i As Integer, endrow As Integer
Dim arr()
Dim brr()
endrow = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row '计算工作表的最后一个非空行号
arr = Range("A3:E" & endrow) '修改这里就可以修改数据源区域
ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
brr(i, 1) = arr(i, 1) & " " & arr(i, 2) & " " & arr(i, 3) & " " & arr(i, 4) & " " & arr(i, 5)
Next
Range("G3:G" & endrow) = brr()修改这里可以修改输出结果的区域
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
a = InStr(brr(i, 1), arr(i, j))
If a <> 0 Then
b = Len(arr(i, j))
c = Cells(i + 2, j).Font.Color
Cells(i + 2, 7).Characters(Start:=a, Length:=b).Font.Color = c
'这里的7以后要改成你需要存数据的列数。现在是G所以是abcdefg 第七个。
Else
End If
Next
Next
End Sub
|
|