小编Mat*_*t G的帖子

我正在尝试编写一个代码,该代码将获取标题/名称列表,并为每个标题/名称创建一个选项卡,每个工作表都有一个列表中的名称.例如,给定ActiveSheet上的表(可能不一定是sheet1)

Metric | Comments | Title
   1   | testing1 | This is Metric1
   2   | testing2 | This is Metric2

我想在ActiveSheet之后添加2个工作表,分别名称为"This is Metric1"和"This is Metric2"(理想情况下,我想用"testing1"填充每个新工作表的单元格A1和"在我们可以运行之前,分别进行测试2".我仍然是VBA的新手,所以请用我的错误代码 - 这是我到目前为止所尝试的:

Sub test_tableTOtabs()
Dim fr As Integer
Dim lr As Integer
Dim col As String

fr = Application.InputBox("Starting row of data: ", , 2)
lr = Application.InputBox("Last row of data: ")
col = Application.InputBox("Column for Tab titles: ")

Dim BaseSheet As Worksheet
Set BaseSheet = ActiveSheet

Dim i As Integer
Dim TitleCell As String …

我有一个海量数据文件(制表符分隔).我正在经历数据转换 - 在某些时候,日期字段将填充非日期值(来自描述字段的单词左侧).你可以想象,我不能只是滚动文本文件,或者把它放到excel中去挖掘 - 我需要知道在哪里看.

我正在尝试向导入的表添加行号,以便我可以识别发生数据移位的行.所以,我想知道是否有办法插入行号而不必按任何顺序排序(即基本上编号原始数据文件的行).

运用

ROW_Number()OVER(ORDER BY(___))

我不确定如何完成我正在尝试做的事情,因为我无法订购任何东西 - 它需要完全按照导入进行编号.