求路过大神帮帮忙或者提供下思路。

风痕幻翼

图一开票项目里面*黑色金属冶炼压延品*，有没有办法根据提供的自定义数据源给挨个去处，现在发票很多不同的前缀。        
或者有大神能看下是否能用VBA转化成图二，如果难度很大我也好死心。

huaner0113

1批量删除无用列
2批量删除小计行及最后一行小计后的十行
3批量替换字符串
4批量设置单元格格式

风痕幻翼

huaner0113 发表于 2019-12-4 23:40
1批量删除无用列
2批量删除小计行及最后一行小计后的十行
3批量替换字符串

大佬你会写吗，可以有偿

huaner0113

Sub aa()

For i = Range("t2").Column To 1 Step -1
If InStr("#销方名称#开票项目#规格型号#计量单位#数量#金额#税率#税额#价税合计#", "#" & Cells(2, i) & "#") = 0 Then
Columns(i).Delete
End If
Next
For i = [b2].End(xlDown).Row To 2 Step -1
If InStr("小计", Cells(i, 2)) <> 0 Then
Rows(i).Delete
Else
Cells(i, 2) = Replace(Cells(i, 2), "*黑色金属冶炼压延品*", "")
End If
Next
Cells(1, 1) = "XXXX有限公司进项导出"
For i = 3 To [b2].End(xlDown).Row
If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i - 1, 1)
Next
With Range(Cells(3, 5), Cells(Cells(3, 9).End(xlDown).Row, 9))
.NumberFormatLocal = ""
.Value = .Value
End With
End Sub