''使用方法:1.按ALT+F11打开VBE编辑器,插入模块,代码粘贴在模块的代码窗口内。
''2.鼠标放到代码中任意位置,按F5执行,。
''注意:运行结果存放于sheet2表中,没有这个表的话,新建一个,名字起成sheet2。
Dimarr(),brr(),crr()
Dimrowno%,colno%
Dimm%,n%
rowno%=ActiveSheet.UsedRange.Rows.Count。
colno%=ActiveSheet.UsedRange.Columns.Count。
ReDimbrr(1Torowno)
ReDimcrr(1Torowno)
arr=Range(Range("A3"),Cells(rowno,colno))。
Sheets("sheet2").[A2:C2]=Array("数字","水果","蔬菜")。
Form=1ToUBound(arr,1)。
Forn=3ToUBound(arr,2)Step2。
If(arr(m,n))="水果"Then。
brr(m)=brr(m)&arr(m,n-1)&"^"。
ElseIf(arr(m,n))="蔬菜"Then。
crr(m)=crr(m)&arr(m,n-1)&"^"。
EndIf
Nextn
Nextm
Sheets("sheet2").[a3].Resize(UBound(arr),1)=Application.Index(arr,,1)。
Sheets("sheet2").[B3].Resize(UBound(brr),1)=WorksheetFunction.Transpose(brr)。
Sheets("sheet2").[C3].Resize(UBound(crr),1)=WorksheetFunction.Transpose(crr)。
EndSub
excel行转列方法
在Excel表格操作过程中,我们常常会需要将Excel表格行列转换,今天小编要给大家分享一下Excel2010表格行和列转换的方法,想要知道如何设置的小伙伴就赶紧来看看吧!。
步骤一、选择需要转换为列的行区域
首先打开相应的工作表,选择需要转为列的行单元格区域,如图所示:
Excel2010
步骤二、复制选中的行内容
切换到“开始”选项卡,在“剪贴板”选项组中单击“复制”按钮,复制选中内容。
步骤三、打开“选择性粘贴”对话框
单击要转换区域的起始单元格并右击,在弹出的快捷菜单中选择“选择性粘贴”命令,如图所示:
Excel2010
步骤四、查看效果
这时我们可以返回工作表,就可以看到原来的行内容已经转换为列的内容了。
提示:Excel列转换为行
操作方法一样,先复制要转换的列内容,然后采用上面同样的方法进行“选择性粘贴”进行“转置”实现Excel转换行列。
以上就是小编分享给大家的Excel2010表格行和列转换的方法,希望对大家都所帮助!更多精彩教程,请多关注格子啦!。
教程小编推荐:
Excel2010自动调整单元格行高和列宽的方法。
Excel2010中怎么修改网格线颜色?
Excel2010中删除单元格、行和列的方法。
Excel2010插入单元格、行和列的方法
还没有评论,来说两句吧...