1.开发工具中选择相对引用，选择开始单元格（假设从1所在的单元格开始），点击录制宏；
2.使用鼠标选择数字1-10，复制，再选择数字1所在的单元格右侧第二个单元格处，右键转置粘贴。然后选择数字11-20，复制，选择数字11所在的单元格右侧第二个单元格处，右键转置粘贴。然后选择21-30，重复前面的操作（多重复几次，便于改VBA代码时找规律）。
3.选择列D-M，开始-查找-定位条件-空值-删除。
4.点击停止录制宏，开发工具-宏-编辑，编辑VBA代码。
5.刚刚操作录制的代码如下：

Sub Y()
' Y 宏
' 快捷键: Ctrl+Shift+W
    ActiveCell.Range("A1:A10").Select
    Selection.Copy
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveCell.Offset(10, -2).Range("A1:A10").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveCell.Offset(10, -2).Range("A1:A10").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveWindow.SmallScroll Down:=-54
    ActiveCell.Columns("A:J").EntireColumn.Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
End Sub
6.找出重复的代码，用循环命令改写，并保存，改写后的代码如下：
 
Sub Y()
' Y 宏
' 快捷键: Ctrl+Shift+W
    ActiveCell.Range("A1:A10").Select
    Selection.Copy
     Do While ActiveCell <> ""
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    ActiveCell.Offset(10, -2).Range("A1:A10").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Columns("A:M").EntireColumn.Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
End Sub
                    效果预览实现过程1.开发工具中选择相对引用，选择开始单元格（假设从1所在的单元格开始），点击录制宏；2.使用鼠标选择数字1-10，复制，再选择数字1所在的单元格右侧第二个单元格处，右键转置粘贴。然后选择数字11-20，复制，选择数字11所在的单元格右侧第二个单元格处，右键转置粘贴。然后选择21-30，重复前面的操作（多重复几次，便于改VBA代码时找规律）。3.选择列D-M，开始-查找-...
Selection.Copy
Range(“K5”).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme ’ 13
Selection.PasteSpecial Paste...
				
通过VBA来完成粘贴操作，在Excel中，我们可以和平常使用鼠标的操作一样，可以选择只粘贴数值还是连格式一起粘贴。
　　下面，就给大家介绍PasteSpecial Paste对象的各种参数，并给出相应的例子供大家参考。
　　当然，我们得通过Range对象的PasteSpecial方法来完成。
　　参数「Operation」的值的列表如下（默认值是xlPasteSpecialOperation...
                    D:\Anaconda3\python.exe D:/企业年报01/第二.py
  File "D:\企业年报01\第二.py", line 20
    json_str = response.text[19:-1]
TabError: inconsistent use of tabs and spaces in indentation
Process finished with exit code 1
楼主您好，我将我想要的公司代码excel保存为CSV文件，然后改了代码中的起始时间，运行后变成上面那样，是什么原因呀，我没有pycharm基础，所以不太懂，想请教请教
                Stata安装外部命令——以Winsor2缩尾命令为例
                    Nseeyy: 
                    想问一下输入命令后stata没反应是怎么回事呀
                Stata字符型与数值型数据的转换——上市公司证券代码字符型与数值型的互换
                    m0_46154290: 
                    为什么我打上你的代码之后全部变成000000了
                Stata字符型与数值型数据的转换——上市公司证券代码字符型与数值型的互换
                    m0_46154290: 
                    第二行代码右边括号变成了小横线吗？
                珠算小九归之八归
                    2201_75301327: 
                    实践出真值勤学苦练方为精