作者:乔山办公网日期:
返回目录:excel表格制作
数据量大的话建议用VBA
1、由于以下VBA将所选择的区域转换到A列中,如果A列包含数据,先在工作表的最左侧插入一新的A列,以便放置转换后的数据。
2、按快捷键Alt+F11,打开VBA编辑器,在右侧代码窗口中粘贴下列代码:
Sub 选定区域转换为一7a64e58685e5aeb9365列并去除空格()
Dim TheRng, TempArr
Dim i As Integer, j As Integer, elemCount As Integer
On Error GoTo line1
Range("a:a").ClearContents
If Selection.Cells.Count = 1 Then
Range("a1") = Selection
Else
TheRng = Selection
elemCount = UBound(TheRng, 1) * UBound(TheRng, 2)
ReDim TempArr(1 To elemCount, 1 To 1)
For i = 1 To UBound(TheRng, 1)
For j = 1 To UBound(TheRng, 2)
TempArr((i - 1) * UBound(TheRng, 2) + j, 1) = TheRng(i, j)
Next
Next
Range("a1:a" & elemCount) = TempArr
End If
line1:
Dim r As Long
r = Sheet1.UsedRange.Rows.Count
For i = r To 1 Step -1
If Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next
End Sub
3、关闭VBA编辑器,返回Excel工作表界面。
4、全选需要转换的区域(千万记得要做这个步骤!!!),再按Alt+F8,打开“宏”对话框,选择上述代码中的宏名“选定区域转换为一列并去除空格”,运行代码。
例如将A1:C10的数据转换到D1:D30
D1输入
=INDEX($A$1:$C$10,INT(ROW()/3.1)+1,MOD(ROW()-1,3)+1)
往下填充
需要将A列到C列的数值复制到一列中。
点击“剪贴板”右下角来的小按钮,在页面左面弹出了剪贴板对话框。
拖动鼠标左键选中A2:C5单元格区域,点击鼠标右键,在弹出的菜单中选择“复制”选项。源
双击F2单元格,然后点击粘帖板中复制的内容,将内容复制到F2单元格中。
将光标移动到公式编辑栏中,选中数据内容,点击鼠标右键,弹出的菜单中选择“百复制”选项。
然后按“ESC”键,按“CTUL+V”组合键将数据内容重新复制到F2单元格。
调整列宽,依次点击【开始】-【填充】-【两端对齐】选项。
弹出“Mircrosoft Office Excel”对话框,点击【确定】按钮。
可以看到数值就被复制过来了且度在一列中列式。此时,数值是文本格式,点击小按钮,在弹出的选项中选择“转换为数字”选项,这样文本格式的内容就转换成了数值形式。
1、打开excel文件,在多行多列中输入姓名。
2、在C6单元中输入=D1,按确定抄。
3、在右下角处出现十字形时,向下拖动,出现如下结果。
4、把左边空白表格上也填充上发,发现第一列已经全部出知现名字了。
5、把左边的内容选中,复制选择性粘贴到右边某一列即可,然后清除一道下内容。