老师，假设我A1至A10内容都是“水果”，B1是苹果，b2是橘子，b3是香蕉…A11至a18内容是“饮料”b11是奶茶，b12是雪碧…我想变成A1内容是水果，B1，c1，d1…对应苹果，橘子，香蕉…；A2内容是饮料，对应了b2,b3…是奶茶，雪碧…有没有什么快速方法呢？内容相当多_Excel

问题已解决

老师，假设我A1至A10内容都是“水果”，B1是苹果，b2是橘子，b3是香蕉…A11至a18内容是“饮料”b11是奶茶，b12是雪碧…我想变成A1内容是水果，B1，c1，d1…对应苹果，橘子，香蕉…；A2内容是饮料，对应了b2,b3…是奶茶，雪碧…有没有什么快速方法呢？内容相当多

84785001| 提问时间：07/22 08:54

使用APP提问，老师回复第一时间提醒，下载APP>

温馨提示：如果以上题目与您遇到的情况不符，可直接提问，随时问随时答

速问速答

朴老师

金牌答疑老师

职称：会计师

免费直播

在 Excel 中，您可以使用以下方法来快速实现您的需求： 1.首先，选中 A1:A10 单元格区域，然后按下 Ctrl + C 进行复制。 2.接着，选中 A1 单元格，右键单击，在弹出的菜单中选择“选择性粘贴”。 3.在“选择性粘贴”对话框中，勾选“转置”，然后点击“确定”。这样就将 A1:A10 中的“水果”竖排变为了横排。 4.按照同样的方法，将 B1:B10 中的水果名称进行转置粘贴到 B1 开始向右的单元格区域。 5.对于“饮料”及对应的名称，重复上述步骤即可。如果数据量非常大，您也可以考虑使用 VBA 宏编程来实现

07/22 08:58

84785001

07/22 09:01

vba怎么用啊

84785001

07/22 09:02

我就是觉得前面的方法很容易错，且速度很慢，所以想找快速的方法

朴老师

07/22 09:06

Sub TransposeData() Dim lastRowFruit As Long Dim lastRowDrink As Long Dim i As Long Dim j As Long Dim fruitData As Range Dim drinkData As Range 到水果和饮料数据的最后一行 lastRowFruit = Cells(Rows.Count, 1).End(xlUp).Row lastRowDrink = Cells(Rows.Count, 11).End(xlUp).Row 择水果数据范围 Set fruitData = Range(A1:A %26 lastRowFruit) 置水果数据并粘贴到新位置 fruitData.Copy Range(B1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 择饮料数据范围 Set drinkData = Range(A11:A %26 lastRowDrink) 置饮料数据并粘贴到新位置 drinkData.Copy Range(B11).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End Sub 使用方法： 1.打开您的 Excel 工作表。 2.按下 Alt + F11 打开 VBA 编辑器。 3.在 VBA 编辑器中，点击“插入” -> “模块”，然后将上述代码粘贴到模块中。 4.回到 Excel 工作表，按下 Alt + F8 打开“宏”对话框，选择“TransposeData”宏，点击“执行”按钮。

84785001

07/22 10:42

这些代码要到哪里输入啊？我没有vba

朴老师

07/22 10:47

没有的话这个没法操作的