四个字的列如何换行,如附件BOOK1黄色部分

oExcel.RANGE(oExcel.Cells(1,1),oExcel.Cells(nRows,nColumns)).BORDERS.LineStyle=1
oExcel.RANGE(oExcel.Cells(1,1),oExcel.Cells(nRows,nColumns)).HorizontalAlignment=3 &&水平(1-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐)
oExcel.RANGE(oExcel.Cells(1,1),oExcel.Cells(nRows,nColumns)).VerticalAlignment=2   &&垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐)

excel表格内的控制，其命令可这样获取：打开EXCEL，任选一工作表，选工具-宏-录制新宏。按照你的调整顺序，依次完成调整，最后选 工具-宏-停止录制。然后选工具-宏-编辑宏，查看代码。