在VBA中转置和格式化数据，需要帮助确保在正确的工作表上编辑我的数据
在VBA中，要转置和格式化数据并确保在正确的工作表上编辑数据，可以按照以下步骤进行操作：
- 首先，需要确定要转置和格式化的数据所在的工作表。可以使用以下代码获取当前活动的工作表：
Dim ws As Worksheet
Set ws = ActiveSheet- 接下来，需要确定要编辑的数据范围。可以使用以下代码选择数据范围：
Dim rng As Range
Set rng = ws.Range("A1:D10") '将范围更改为你的实际数据范围- 然后，可以使用以下代码将数据转置到另一个工作表中：
Dim transposedData As Variant
transposedData = Application.Transpose(rng.Value)
Dim transposedSheet As Worksheet
Set transposedSheet = ThisWorkbook.Sheets.Add '创建一个新的工作表用于存放转置后的数据
transposedSheet.Name = "转置数据" '将工作表命名为"转置数据"
transposedSheet.Range("A1").Resize(UBound(transposedData, 1), UBound(transposedData, 2)).Value = transposedData- 接下来，可以对转置后的数据进行格式化。可以使用以下代码对数据进行格式化：
transposedSheet.Range("A1").CurrentRegion.NumberFormat = "0.00" '将数据格式设置为两位小数
transposedSheet.Columns.AutoFit '自动调整列宽以适应数据- 最后，可以在转置数据的工作表上进行进一步的编辑。可以使用以下代码激活转置数据的工作表：
transposedSheet.Activate以上代码将帮助您在VBA中转置和格式化数据，并确保在正确的工作表上编辑数据。请根据您的实际需求进行适当的修改。
相关·内容
这应该是一个容易解决的问题，但我对VBA非常不熟悉，所以我需要一些帮助。 本质上，我想复制给我的数据(有限的列范围，但动态的行)，并将其粘贴到excel中的第二个工作表中。从那里，我需要将D、E、F和H列中的所有值转换为12位中的分数。我非常确定我<
浏览 11提问于2020-03-17得票数 0
我有一行数据如下：row key datavalue1所以基本上，我有一个非正规化的数据集，其中的数据值可能是空的，也可能不是空的。我需要让它们正常化。，但是我有数千行，我需要
浏览 0提问于2009-11-24得票数 2
回答已采纳
我对VBA很陌生，我找不到解决这个问题的方法:我试图编写一个函数来清除ComboBox、ListBox和TextBox，但是我得到了
Call Cancella(InputNumero1, ListArticoli1, ComboBoxUtenti)
浏览 0提问于2019-01-29得票数 2
回答已采纳
我在一个工作表“数据”中从ODBC数据库中提取信息，并试图使用另一个工作表"Price Book Data“上的索引匹配从它中提取数据。当我在非数据连接工作表中键入数字时，我创建的索引匹配公式不起作用，但是，如果我从数据连接工作<
浏览 2提问于2017-10-23得票数 0
回答已采纳
我对VBA社区和用法非常陌生，所以我的文盲率有点令人尴尬。我在一个实验室工作，经常处理非常大的数据输出文件。为了对这些数据文件进行统计分析，我们通常需要将输出数据重新排列成更便于统计的格式。这就是我的问题所在。
我已经为一个非常特定的数据集创建和使用了VBA
浏览 1提问于2015-01-20得票数 0
回答已采纳
2回答
我必须将Excel工作表中的数据放入Access数据库。Excel工作表和Access数据库的数据结构有很大的不同，因此需要进行大量的重新格式化/重构。所以我喜欢用VBA来导入数据。我知道我可以在VBA<
浏览 0提问于2010-07-21得票数 0
回答已采纳
2回答
VBA的下一步是通过包含日期的第一列过滤数据表。但是，数据粘贴会将所有内容转换为一般数据类型，但更重要的是，似乎失去了字段中字符串后面的“日期值”。这会导致筛选代码隐藏所有行，因为参数中没有日期(因为实际上没有日期)。我甚至不能手动过滤日期(即没有VBA)。
每当我手动复制和粘贴数据时，它都可以正常工作，并且可以以任何方式格式化</em
浏览 0提问于2018-02-28得票数 1
1回答
我在Access中使用VBA将数据导出到Excel中，并将其放入单独的工作表中。数据以未格式化的形式出现，所以我将创建一个宏来格式化它。出口是多个地点的库存数据(物品价格和手头数量)。自动填充将是价格的计算*数量自动填充到数据的末尾。这些位置的工作表
浏览 4提问于2016-12-30得票数 0
回答已采纳
在google sheets中转置数据时有可能限制范围吗？我正在尝试转置打印的数据行，但数据列太长，特别是如果我是转置50行，我需要将它们限制在5列，然后下拉并从next row.is的第一列开始这一切都可能吗？[Data Sheet][1][Transposed data
浏览 1提问于2018-10-14得票数 0
2回答
我对使用列表对象(AKA excel表)的Excel应用程序的性能有问题。我怀疑这可能是一个bug，但尽管我在谷歌上搜索，但我找不到它的任何参考资料。设置如下:我有一个电子表格，它在List对象中保存数据，VBA代码可以通过命令按钮启动；此代码可以对工作表上任意数量的单元格进行多次编辑，因此Excel的计算模式
浏览 0提问于2012-01-14得票数 5
1回答
是否有一种方法可以在excel中创建正在运行的数据库(仅在excel中，而不使用第三方程序)，因此例如：-One工作表拥有当前每个人的数据-The附加工作表(第一个工作表中的每个人都有一个工作表)--保存工作表中过去每列-Each的列表，但当前工作表除外，每
浏览 1提问于2015-08-20得票数 0
回答已采纳
在VBA中，显示，数值可以有几种类型: Double、Integer、Long、LongLong、Single、Decimal、Byte。但是，在Excel中，对于包含数字值的单元格，其类型总是被认为是Double。有人能告诉我</e
浏览 4提问于2013-07-16得票数 5
回答已采纳
2回答
我们目前有一个包含大量VBA代码的Excel电子表格。VBA代码负责：以及其他必要的实用程序代码。
现在，我们希望向Excel工作簿中添加一个新的工
浏览 3提问于2009-02-10得票数 0
回答已采纳
1回答
我有一个输入电子表格，需要按日期排序。当前的日期格式是英国格式(dd/mm/yyyy)，但我需要它在yyyy(实际上我不需要，我只需要排序，该格式是最简单的排序方式)。所有这些都需要在VBA中完成，因为它是一个更大的项目的一部分，它允许一次进行大量的数据整理。另一个问题是输入表可能相当大(1
浏览 1提问于2013-08-08得票数 0
回答已采纳
4回答
我在一家公司工作，出于某种原因，我被甩去做统计工作。显然，第一个解决方案是为我编写一个脚本来完成这个任务。我不能，我不能下载服务器到我的电脑，作为一个PHP程序员，我不能这样做。
其次，我考虑将这些txt文件导入MySQL
浏览 2提问于2013-03-12得票数 0
回答已采纳
将这些数据类型指定/指定给每列后，另一个宏将使用导入的CSV数据填充第二个工作表，其中新工作表中的位置取决于为导入数据的每一列指定的数据类型。例如，如果导入数据的第一列是数据类型"DataA"，则将为该第一列选择下拉选择(从下拉菜单中总共12个“数据类型”中选择)。然后，此&quo
浏览 2提问于2016-01-05得票数 2
我有一个VBA，它一直工作得很好，直到我保存它，再次打开它，运行它，然后开始出现错误。
我正在从工作表(“Master”)复制数据，并将这些数据转置到工作表(“All”)。问题是，我将其转置到一个表中(标识为列表对象)，并在粘贴发生之前添加新行。然而，由于某些原因，它会在工作表的奇怪区域转<e
浏览 9提问于2017-07-13得票数 0
我有一个源内容，如下所示John 21 1 80 88 76Sara 22 4 76 76 89我希望在excel中创建一个类似这样的数据透视表。89 76 78 88
Science
浏览 1提问于2014-07-30得票数 0
请你可以协助一些excel VBA代码。我在StackOverflow上发现了类似的问题(将列转置为行，前3列保持不变)。然而，我不能得到我想要的结果。我希望转换一个数据区域，以根据原始行的多个实例显示列数据，但将原始数据保留在列A中，然后根据列B和列C中的原始行的相同实例将列“转置”为行。结果可以在<
浏览 18提问于2020-07-15得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
云直播
对象存储活动推荐
腾讯云开发者
