使用 VBA，如何选择行范围中的所有其他单元格（要垂直复制和粘贴）？

Question

我有一个 2200 多页的文本文件。它是由客户通过数据交换传递给我们的，用星号分隔值，用波形符 (~) 表示行的结尾。该文件以 Word 文本文件形式发送给我。大多数行被分成两部分（一行覆盖整行和第二行的一部分）。我一次将其片段（10 个页面块）传输到 Excel 中，不幸的是，行末尾出现的任何零都会在“文本到列”过程中被丢弃。因此，我会仔细观察每个“长”行，以确保零没有丢失，并手动重新输入任何零。

以下是一小部分示例数据：

SDQ EA 92 1551 378 1601 151 1603 157 1604 83

“SDQ、EA 和 92”是无关的（数据传输的伪影）。我想使用 Excel 和/或 VBA 选择 1551、1601、1603 和 1604（这些是商店编号），以便我可以复制这些值，然后垂直转置粘贴它们。然后我将返回并复制 378、151、157 和 83（销售值），以便我可以将它们转置粘贴到商店编号旁边。接下来的两行数据包含相同的商店编号，但给出了相应的美元值。我只需要复制美元值，以便可以将它们垂直转置粘贴到单位值旁边（例如 378、151、157 和 83）。

只需将光标放在该行中感兴趣的第一个单元格上，然后运行宏来复制所有其他单元格，就会极大地加快我的工作速度。我尝试使用 ActiveCell 和 Offset 引用来选择要复制的范围，但没有成功。有没有人给我一些建议？预先感谢您的帮助。

Answer 1

如果没有有关该文件的更多信息，很难给出完整的答案。

我认为如果您的输入数据长度超过 2200 页，那么使用默认的 Excel 打开功能打开它不太可能是正确的方法。特别是因为 Excel 具有最大行数和列数。如果文件是文本文件 (.txt)，我建议使用 VBA 打开它并读取每一行，一次一行，然后处理数据。

这是一个帮助您入门的示例。请记住，这会将每行文本转换为数据列，因此您将在运行 2200 页文本之前快速填充 Excel 的所有列。但这只是一个例子。

Sub getData()
   dFile = FreeFile
   sFile = "c:\code\test.txt"

   Open sFile For Input As #dFile
    c = 1
    'keep doing this until end of file
    Do While Not EOF(dFile)
      'read line into dataLine
      Input #dFile, dataLine
      ' break up line into words based on spaces
      j = Split(dataLine, " ")
      jLength = UBound(j)
      If jLength > 2 Then
        r = 1
        'ignore first 3 words
        'and get every other word
        'transpose rows of text into columns
        For word = 3 To jLength Step 2
            Cells(r, c) = j(word)
            r = r + 1
        Next word
      End If
      c = c + 1
    Loop
  Close #Data
End Sub