将列分成多列excel 2010

Question

我需要做的：我基本上在 excel、(x) 和 (y) 中有两列有多个数据集继续沿着 A 和 B 列向下延伸（它在范围内，但我一直在处理的那个下降到大约 80,000 并且有大约 8 个数据集；完整的数据集会更长）

** 此处数据的屏幕截图：

这些值持续约 200 个单元格，其中 header（图像名称、图像平面等）重复，并列出下一个平面的 X 和 Y 值。

**我希望它看起来像的屏幕截图：

**我已经开始使用 "Do Until" 循环编写代码，但是我无法确定如何将停止点分配到带有文本或 "Image Name" 作为内容。两者都可以。

我想在继续阅读下一个图像数据集并将每个集分开三列粘贴到 Sheet2 之前解决这个问题（参见我希望它看起来像的屏幕截图） .

到目前为止我写的东西（我知道它相当缺乏，因为我正在努力学习 VBA 的部分内容）：

Sub Test2()  
    ' Test2 Macro  
    ' Automating  

    Dim X As Text Set X:= "Image Name"  

    'Select cell A2, *first line of data*  
    Range("A2").Select   
    'Set Do loop to stop when end of selection is reached   
    Do Until X(ActiveCell)  
        Selection.Copy  
        Sheets("Sheet2").Select  
        ActiveSheet.Paste  
        ' Step down 1 row from present location  
        ActiveCell.Offset(1, 0).Seclect Loop  
End Sub

我已经能够更好地理解一些功能，但我仍然不知道如何分配变量。例如，要使 X 等于字符串 "Image Name" 并设置 Do until X 以便 Do 循环的功能工作直到它命中 "image name" 单元格内容（或直到它命中文本，两者都可以工作。 )

非常感谢您提出任何建议！我将继续努力，并努力把它做好，所以如果我有更多要添加的内容，我会更新代码。

Answer 1

你有很多信息，但在你的结尾 post 你说你需要分配一个变量。

首先我们需要声明一个变量。您正试图将 x 声明为文本。文本不是 VBA 中的数据类型，因此我们将使用 String.

Dim x as String

现在我们需要分配 x 一个值。这里有 2 个例子

x = "assigned value"  'assigned by hard-coding the value
x = Sheets("Sheet2").Range("A1").Value  'assigned by using the value of A1 on Sheet2

现在您的代码中有一些其他问题（粘贴而不复制，启动 Do 循环而不关闭它），但您需要特别询问您需要帮助的地方。

将列分成多列excel 2010

Separating columns into multiple columns excel2010

excel

excel-2010

vba