变量在 VBA 中保持为空 Do while 迭代答案

【问题标题】：Variable remains empty in VBA Do while iteration变量在 VBA 中保持为空 Do while 迭代
【发布时间】：2020-02-26 15:22:14
【问题描述】：

我的宏无法捕获对象/变量“书”时遇到问题。它应该从单元格中拉出字符串，然后测试它是否等于字符串。

我的代码只捕获第一个字符串，然后在第一次迭代后变为空。

     Dim i%, j%
        i = 37
        j = 1
        Dim TRBfound As Boolean
        Do While TRBfound = False
            book = Cells(i, 1).Value2
            If Left(book, 3) = "TRB" Then
                TRBfound = True

            Else

                Sheets("Sheet2").Select
                Cells(i, 1).Select
                Selection.Copy
                Sheets("Sheet18").Select
                Cells(j, 1).Select

                ActiveSheet.Paste
                i = i + 1
                j = j + 1
            End If
        Loop

        End If

数据：从A37开始，它也与它旁边的其他单元格合并。

AOU          - AOU                              
DSU          - DSU                              
TRBK         - Treasury Book                                
LLE          - US Single Stock                              
SDC          - SDC                              
SZK          - AMRS DELTA 1 RIS                             
TRBK         - Treasury Book                                
TRBK         - Treasury Book                                
TRBK         - Treasury Book                                
TRBK         - Treasury Book                                
TRBK         - Treasury Book                                
TRBK         - Treasury Book

VBA 中的变量保持为空 Do while interation

【问题讨论】：

标签： excel vba

【解决方案1】：

尝试在您的代码中使用avoid using Select。

这对我来说似乎很好用：

Dim i As Long
Dim j As Long
Dim TRBfound As Boolean

i = 37
j = 1
Do While TRBfound = False
    book = Sheets("Sheet1").Cells(i, 1).Value2
    If Left(book, 3) = "TRB" Then
        TRBfound = True
    Else
        Sheets("Sheet2").Cells(j, 1).Value = Sheets("Sheet1").Cells(i, 1).Value
        i = i + 1
        j = j + 1
    End If
Loop

【讨论】：