Question

excel问题vba, 文件夹里我很多表格，每个表格里的sheet1里是材料单价表，内容不尽相同，

excel问题vba,
文件夹里我很多表格，每个表格里的sheet1里是材料单价表，内容不尽相同，但内容大多数还是一样的但行不同，比如A列有一项叫“5分软管”，C列价格是13，它在第一个表里是第6行，在第二个表里是在第11行，第三表没有，第四表里名称叫“中号软管”在第30行………..所有列数一样都是A列名称C列单价。现在要把这些所有包含“软管”二字名称的对应价格改为14，请高人出个VBA一次全部修改，能做得到的写个代码，不写代码的请别回答了。

Answer 1

Sub s()
  pth = "D:\My Documents\" '在这里输入完整路径
  fn = Dir(pth & "*.xls*")
  Do While fn <> ""
    Set wb = Workbooks.Open(pth & fn)
    With wb.Sheets("sheet1")
        n = .Cells(.Rows.Count, 1).End(3).Row
        For i = 1 To n
            If InStr(.Cells(i, 1), "软管") Then
                .Cells(i, 3) = 14
            End If
        Next
    End With
    wb.Close True
    fn = Dir
  Loop
End Sub

追问

给你信了，你看看啊？

追答

D:\My Documents\改成你自己的文件夹

Answer 2

A6软管＝14

追答

就是这麼简单