Question

我有一个值表，它按不同质量的项目列出项目ID，如下所示：

ID      QB      QC      UI
006780  12      -       6
100780  48      15      8

等一千行。作为进一步争吵的一部分，我希望得到身份并将它们移到别处，并将它们放在彼此之下，它们之间有2个空白单元格。这是我提出的代码，请耐心等待我，我试图学习：

Sub laatuJako()

Dim idRange As Range
Dim tyoWb As Workbook
Dim tyoWks As Worksheet
Dim idRivit As Integer
Dim idArray() As Variant 

Set tyoWb = ThisWorkbook
Set tyoWks = tyoWb.Sheets("Pivots->Apu")
idRivit = tyoWks.Range("Q7").End(xlDown).Row
ReDim idArray(0)
Dim varCounter As Integer
varCounter = 0

下一个循环是我可以形成数组的一种方式，因为它似乎在下一个循环中遇到运行时错误9。

For i = 0 To idRivit - 1
    tyoWks.Activate
    idArray(i) = tyoWks.Range("Q" & 7 + i).Value
    varCounter = varCounter + 1
    ReDim Preserve idArray(varCounter)

Next i

Dim k As Integer
Dim j As Integer
k = 0
j = 0
Do While k < idRivit

    tyoWks.Range("X" & 7 + j).Value = idArray(k)

    j = j + 3
    k = k + 1
Loop

End Sub

现在代码工作了，但似乎（un）帮助VBA将id属性更改为数字并在其前面打印带有数字的ID，例如006780为6780.这不是想要的，所以我改变了数组成一个字符串数组，但没有区别。现在这里不需要数组了，我可以直接使用循环来复制粘贴它们，但我想知道如何控制这样的东西，因为在数组更可取的情况下问题会再次出现。 / p>

道歉，如果问题描述不清楚，那么第一次就是一切。

如何在VBA中保留数组中某种形式的数字

0 个答案: