求帮忙修改一下代码

王跃峰

Sub 小数点位数()
Dim i&, j&
For i = 1 To Sheets.Count '建立每个表循环
     With Sheets(i)
c = .Cells(1, "s").End(xlToLeft).Column
d = .[A65536].End(xlUp).Row
    For j = 3 To c
'    If .Cells(1, j) > 0 Then
     s = Trim(.Cells(1, j))

'     End If
     Select Case s
      Case "金品位", "银品位"
        .Cells(2, j).Resize(d, 1).NumberFormatLocal = "0.00"
      Case Else
        .Cells(2, j).Resize(d, 1).NumberFormatLocal = "0.000"
      End Select
    Next 'j
  End With
Next i
End Sub

gwjkkkkk

请楼主参考　。。。

王跃峰

gwjkkkkk 发表于 2022-12-4 21:23
请楼主参考　。。。

For i = 1 To .Columns.Count应改成 For i = 3 To .Columns.Count感谢您帮助，实在对不起，今天没分了，明天一定补上，