做了一个EXCEL宏，请帮助看看，谢谢

yanwei82123300

做了一个EXCEL宏，目的是将数据的某一列列的格式设置成"000"三位，请帮助看看，谢谢
但是有一个问题就是数据的行数不固定，同时具体是哪一列需要进行选取，请问如何使宏可以自动判断数据的行数，然后再次进行格式的设置，谢谢

Sub format_text()
'
' format_text Macro
'
'
Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(""000""&RC[-1],3)"
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B500")
    Range("B1:B500").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

roych

有个玩意儿叫usedrange.row，或者range("B1").end(xldown).row都可以判断行标（也可以改为rows来判断行数）
不过需要注意的是，这些都是读取连续单元格的。
如果是不连续单元格（即区域内有空值），应该用内置函数counta来判断，例如：application.WorksheetFunction.counta(sheet1.range("B:B"))即可统计非空行数。

盗梦

Selection.NumberFormatLocal = "000"

yanwei82123300

请大家看看例子，绿色的部分想设置成“000”三位，谢谢

yanwei82123300

我修改了一下宏代码，目前不会如何界定行数，还有如何需求某一列进行格式设定，请大家帮助看看谢谢了
Sub format000()
Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(""000""&RC[-1],3)"
    Range("C2").Select
End Sub
    Selection.AutoFill Destination:=Range("C2:C131")
    Range("C2:C131").Select

yanwei82123300

我修改了一下宏代码，目前不会如何界定行数，还有如何需求某一列进行格式设定，请大家帮助看看谢谢了
Sub format000()
Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(""000""&RC[-1],3)"
    Range("C2").Select
End Sub
    Selection.AutoFill Destination:=Range("C2:C131")
    Range("C2:C131").Select
End Sub

roych

1. Sub getFormat()
   
2.     Dim i As Long
   
3.     Application.ScreenUpdating = False
   
4.     For i = 2 To Sheet1.Range("A1").End(xlDown).Row
   
5.         With Sheet1.Range("B" & i)
   
6.             .Interior.Color = RGB(0, 192, 0)
   
7.             .NumberFormat = "000"
   
8.         End With
   
9.     Next
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

yanwei82123300

刚刚是了，死机了，不知什么原因?xx

ly

yanwei82123300 发表于 2016-5-6 15:03
请大家看看例子，绿色的部分想设置成“000”三位，谢谢

Sub FormatRng()
ActiveSheet.Range("B2", Cells(Rows.Count, 2).End(xlUp)).NumberFormat = "000"
End Sub

yanwei82123300

谢谢，大家的帮助！但是数据导入到access中还是不准确不是000三位的！在EXCEL中显示是三位，但是excel中显示还是原来的样子，请大家看看