Note: The other languages of the website are Google-translated. Back to English

如何在Excel中从范围创建列表?

您可能需要经常按一系列数据创建一个列表,例如,如下图所示以24个太阳能术语表示的一系列数据。 当然,您可以手动将它们复制并粘贴到列表中,但是如果范围中有许多列,则看起来有些乏味。 实际上,有两个技巧可以轻松地从Microsoft Excel中的指定范围创建列表。


使用VBA从范围创建列表

使用Kutools for Excel从范围创建列表

Office选项卡在Office中启用选项卡式编辑和浏览,并使您的工作更加轻松...
Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%
  • 重用任何东西: 将最常用或最复杂的公式,图表等添加到您的收藏夹中,并在将来快速重用它们。
  • 超过20种文字功能: 从文本字符串中提取数字; 提取或删除部分文字; 将数字和货币转换为英文单词。
  • 合并工具:将多个工作簿和工作表合二为一; 合并多个单元格/行/列,而不会丢失数据; 合并重复的行和总和。
  • 分割工具:根据价值将数据分割成多个工作表; 一本工作簿可转换为多个Excel,PDF或CSV文件; 一列到多列。
  • 跳过粘贴 隐藏/过滤的行; 计数与求和 按背景色; 向多个收件人批量发送个性化电子邮件。
  • 超级过滤器: 创建高级过滤方案并应用于任何工作表; 排序 按星期,日期,频率等 筛选器 用粗体,公式,注释...
  • 超过300种强大的功能; 适用于 Office 2007-2021 和 365; 支持所有语言; 在您的企业或组织中轻松部署。

箭头蓝色右气泡 使用VBA从范围创建列表

在Excel中,您还可以使用VBA代码快速导入列表或范围。

1.按住 ALT 按钮并按下 F11 在键盘上打开一个 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块,然后将VBA复制到模块中。

VBA:从范围创建列表

Sub UniqueList()
'Updateby20140304
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range:", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("OutPut to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count
    For j = 1 To InputRng.Columns.Count
        OutRng.Value = InputRng.Cells(i, j).Value
        Set OutRng = OutRng.Offset(1, 0)
    Next
Next
End Sub

 

3。 点击 运行 按钮或按下 F5 运行VBA。 屏幕上会显示一个对话框,并选择您用来创建列表的数据范围。 看截图:


5。 点击 OK,从弹出对话框中选择一个单元格以输出列表,然后单击 OK。 看截图:


然后,已将数据范围创建为所选单元格中的列表。



箭头蓝色右气泡 使用Kutools for Excel从范围创建列表

方便的工具– Kutools for Excel's 变换范围 功能还可以根据范围数据快速轻松地创建列表。

Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用,不受限制。 立即获取

1.选择要创建为列表的数据范围,然后单击 库工具 > 范围转换器 > 变换范围。 看截图:


2.在弹出窗口中 变换范围 对话框,检查 范围到单列和点击 OK,显示另一个对话框,供您选择空白单元格以输出列表,然后单击 OK。 看截图:

3.然后创建列表。

单击此处以获取有关变换范围的更多信息。

按评论排序
注释 (0)
还没有评分。 成为第一位评论!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护