VBA代码在Excel中无法与数据集一起使用

查克拉收款机

我正在研究机器学习项目,并且正在使用Excel处理数据集。我是Excel和VBA的新手。

因此,我正在使用此数据集,然后将整个内容复制粘贴到excel电子表格中。我在栏上输入文字。这是一些数据的快照:

数据快照

我想重新格式化电子表格中的数据,以便所有数据进入单个行,然后在“名称”关键字之后开始一个新行。

例如,我想要这样:

1 2 3 4 5 6 7 8 9 10

11 12 13 14 15 16 17 18

19 20 21 22 23 name

成为:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 name (all on one line)

无需手动逐行操作。

我使用下面的VBA代码以所需的方式格式化数据:

Sub separateByName()
Dim lRow As Long
Dim lCol As Long
Dim lCol2 As Long

k = 1

lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lRow
lCol = Cells(i, Columns.Count).End(xlToLeft).Column
For j = 1 To lCol

    lCol2 = Sheets("Sheet2").Cells(k, Columns.Count).End(xlToLeft).Column
    Sheets("Sheet2").Cells(k, lCol2 + 1).Value = Cells(i, j).Value
    If Cells(i, j).Value = "name" Then k = k + 1

Next j
Next i
End Sub

但是,当我运行时,我遇到了问题,因为结果似乎是随机模式的。

这个:

1 0 63 1 -9 -9 -9
-9 1 145 1 233 -9 50 20
1 -9 1 2 2 3 81 0
0 0 0 0 1 10.5 6 13
150 60 190 90 145 85 0 0
2.3 3 -9 172 0 -9 -9 -9
-9 -9 -9 6 -9 -9 -9 2
16 81 0 1 1 1 -9 1
-9 1 -9 1 1 1 1 1
1 1 -9 -9 name
2 0 67 1 -9 -9 -9
-9 4 160 1 286 -9 40 40
0 -9 1 2 3 5 81 0
1 0 0 0 1 9.5 6 13
108 64 160 90 160 90 1 0
1.5 2 -9 185 3 -9 -9 -9
-9 -9 -9 3 -9 -9 -9 2
5 81 2 1 2 2 -9 2
-9 1 -9 1 1 1 1 1
1 1 -9 -9 name

成为这样:

1 0 63 1 -9 -9 -9 1 0 63 1 -9 -9 -9 -9 1 145 1 233 -9 50 20 1 -9 1 2 2 3 81 0 0 0 0 0 1 10.5 6 13 150 60 190 90 145 85 0 0 2.3 3 -9 172 0 -9 -9 -9 -9 -9 -9 6 -9 -9 -9 2 16 81 0 1 1 1 -9 1 -9 1 -9 1 1 1 1 1 1 1 -9 -9 name

  -9 1 145 1 233 -9 50 20 2 0 67 1 -9 -9 -9 -9 4 160 1 286 -9 40 40 0 -9 1 2 3 5 81 0 1 0 0 0 1 9.5 6 13 108 64 160 90 160 90 1 0 1.5 2 -9 185 3 -9 -9 -9 -9 -9 -9 3 -9 -9 -9 2 5 81 2 1 2 2 -9 2 -9 1 -9 1 1 1 1 1 1 1 -9 -9 name

“名称”正确地在末尾,但是实际数据混乱了。

有人可以帮我为我的数据集修复此代码吗?

谢谢!

米凯尔

我还用数据测试了您的代码,并使其正常工作,只需确保在工作表1上有数据并且工作表2为空,然后在工作表1打开时使用宏。那么您的数据在工作表2中。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

Range.find无法与Excel VBA一起使用

排序无法将数据验证规则与Excel中的数据一起移动

如何更改此ggplot代码,使其与导入的Excel数据一起使用?

Compiz多维数据集不能在gnome Classic或Unity中与12.04一起使用

如何将数据集与 cloneelement 一起使用?

将Tensorflow数据集与分层采样一起使用

Powershell与SQL Server数据集一起使用

将 ggplot 与 AirPassengers 数据集一起使用

在Excel VBA中,为什么我的代码不能与可见的SpecialCells类型一起使用,而没有它,则可以正常工作?

onChange和setState在我的代码中无法一起使用

代码隐藏中的WPF UserControl动画无法与ContentPresenter一起使用

PHP中的Htaccess重写模式无法与此代码一起使用

代码与终端中的节点一起使用时,JavaScript文件无法工作

AngularJS代码无法与NodeJS一起使用

Tree JavaScript代码无法与Internet Explorer一起使用

保存JSON无法与代码一起使用

jQuery无法与Ajax返回的代码一起使用

数据集API“ flat_map”方法针对与“ map”方法一起使用的相同代码产生错误

将Excel VBA命令与变量一起使用

VBA Word宏无法按预期方式与文档中的字段结果一起使用

无法使Replace方法与Array Formula(VBA)一起使用

在Excel中,COUNTIF()无法与常量定义的字符串一起使用[]

无法在Excel中将N()与数组一起使用

受影响的行无法与Codeigniter中的非默认数据库一起使用

jQuery无法与razor一起使用以更新表中的数据

无法与ObservableField <String>一起使用双向数据绑定

POSTGRES 错误:INTO 与无法返回数据的命令一起使用

将数据集与自定义对象数组一起使用时,Flink中的NoSuchMethod异常

我的与任务计划程序一起使用的应用程序无法在我的C#代码中创建目录