1、选中B列后,按ctrl+c进行复制;
2、点击任一空白单元格,单击右键,点击“选择性粘贴”;
3、弹出窗口,点击“转置”,最后点击“确定”即可,行换列就完成了。
你好,楼主想要的功能,可以使用VBA程序实现。
(一)VBA程序代码如下:(代码运行之前请做好数据备份,以免丢失)
Sub abcd()
Dim i1, i2, i3, str
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1
For i1 = 1 To 1000 '从第1行到1000行
If mysheet1.Cells(i1, 1) <> "" Then '如果单元格不是空白,则
str = Mid(mysheet1.Cells(i1, 1), 1, 1) '截取第一个字符
If IsNumeric(str) = True Then '如果截取的字符是数字,则
i2 = i1
i3 = 1
Else
i3 = i3 + 1
mysheet1.Cells(i2, i3) = mysheet1.Cells(i1, 1) '把ABCD项写入含有数字的那一行
End If
End If
Next
End Sub
(二)程序运行前后的结果如下图所示,望笑纳。
你好,楼主想要的功能,可以使用VBA程序实现。
(一)VBA程序代码如下:(代码运行之前请做好数据备份,以免丢失)
Sub abcd()
Dim i1, i2, i3, str
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1
For i1 = 1 To 1000 '从第1行到1000行
If mysheet1.Cells(i1, 1) <> "" Then '如果单元格不是空白,则
str = Mid(mysheet1.Cells(i1, 1), 1, 1) '截取第一个字符
If IsNumeric(str) = True Then '如果截取的字符是数字,则
i2 = i1
i3 = 1
Else
i3 = i3 + 1
mysheet1.Cells(i2, i3) = mysheet1.Cells(i1, 1) '把ABCD项写入含有数字的那一行
End If
End If
Next
End Sub
(二)程序运行前后的结果如下图所示,望笑纳。