Question

我是VB的新手，我遇到了麻烦，

我有一张包含30张不同纸张的Excel文件，每张纸包含1000多行数据。

如果 A2, A3, A4, A5 中的数据到达结尾，我想要读取的每张纸上，如果此列有数据，则使用set变量 {{1填充列AB2然后取数字并添加到最后而不添加。比如示例，忽略没有这些变量的行。

示例：

TC=20, cfg=10, & BCA=50

由于

Answer 1

尝试一下，我想你将能够完成其余的工作。它可以做得更好，所以如果速度成为问题让我知道。

Sub LookCodes()

Dim WS As Worksheet
Dim I As Long
Dim Result As String

For Each WS In Worksheets
    WS.Range("A2").Activate
    For I = 0 To WS.UsedRange.Rows.Count
        If IsEmpty(ActiveCell.Offset(I, 0)) = True Then
            Exit For
        Else
            If InStr(ActiveCell.Offset(I, 0).Value, "TC") > 0 Then
                    Result = "000000" + Right(ActiveCell.Offset(I, 0).Value, Len(ActiveCell.Offset(I, 0).Value) - 2)
                    Cells(I + 2, 28).Value = "20" & Right(Result, 4) ''Added for Comment
            ElseIf InStr(ActiveCell.Offset(I, 0).Value, "BCA") > 0 Then
                    Result = "000000" + Right(ActiveCell.Offset(I, 0).Value, Len(ActiveCell.Offset(I, 0).Value) - 3)
                    Cells(I + 2, 28).Value = "50" & Right(Result, 4) ''Added for Comment
            End If
        End If
    Next
Next

End Sub

Excel一次只能在一行中工作，无需添加即可组合数字

1 个答案: