合并单元格

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) .Visible = .T. * 指定区域的单元格分行合并 .WorkSheets(1).Cells(1, 1).Resize(3, 4).Merge(.T.) .ActiveSheet.Cells(1, 1).Value = "指定区域的单元格分行合并" * 指定区域的单元格合并为一个单元格 .WorkSheets(1).Cells(5, 1).Resize(3, 4).Mer...
Excel问题 | 2021-06-02 07:26 | 阅读 814 次 | 评论 0 条

隐藏指定行或列

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) .Visible = .T. .ActiveCell.EntireRow.Cells(5, 1).Value = 5 .Worksheets(1).Columns(6).Hidden = .T. .Worksheets(1).Rows(6).Hidden = .T. ENDWITH
Excel问题 | 2021-06-02 07:25 | 阅读 746 次 | 评论 0 条

删除数据区域的空白行列

oExcel = CREATEOBJECT('Excel.Application') WITH oExcel .Workbooks.Add(-4167) * 添加测试数据 .ActiveSheet.Cells(2, 2).Value = "abcd" .ActiveSheet.Cells(4, 4).Value = "abcd" .ActiveSheet.Cells(6, 6).Value = "abcd" .ActiveSheet.Cells(100, 10).Value = "ABCD" *删除空白行 lnRow = .ActiveSheet.U...
Excel问题 | 2021-06-02 07:23 | 阅读 844 次 | 评论 0 条
浏览376318次