Excel VBA代碼如何向特定單元格添加文本

Question

特定列中所有單元格的長度必須為6個字符。 如果沒有，我必須在每個單元格的開頭添加0，直到單元格長度= 6。 最好的方法是什么？

Answer 1

Dim lastRow As Integer
Dim i As Integer
Dim sh As Worksheet
Dim cont As String


Set sh = ThisWorkbook.Worksheets("Sheet1") 'Your Sheet

With sh
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'Coloumn A

    For i = 1 To lastRow
        Cells(i, 1).NumberFormat = "@"
        Do Until Len(Cells(i, 1)) = 6   'Coloumn A
            cont = Cells(i, 1)          'Coloumn A
            Cells(i, 1) = "0" & cont    'Coloumn A
        Loop
    Next i

End With

這對您有用嗎？ 您只需要編輯要檢查的列，就可以使用文本框。

Answer 2

這是C列的示例：

Sub Make6()
    Dim r As Range, r1 As Range, r2 As Range, r3 As Range
    bry = Array("000000", "00000", "0000", "000", "00", "0", "")
    Dim N As Long, v As String, L As Long
    Set r1 = Range("C:C")
    N = Cells(Rows.Count, "C").End(xlUp).Row
    Set r2 = Range("C1:C" & N)
    Set r3 = Range("C" & N + 1 & ":C" & Rows.Count)

    r1.NumberFormat = "@"
    For Each r In r2
        v = r.Value
        L = Len(v)
        If L < 6 Then
            r.Value = bry(L) & v
        End If
    Next r
    r3.Value = "000000"

End Sub

它將修復C列中的所有單元格。