subsample如何在excel中自动输出文本格式中保证格式不变，因文字比较多自动输出文本后会自动换行，能否做到不换行

excel vba实现导入excel模板工作表

你可以录个宏看看代码，然后自己再改进一下。

Sheets("Sheet3").Select Windows("Book1.xls").Activate Sheets("3").Select Sheets("3").Move Before:=Workbooks("BOOK2.xls").Sheets(1) Sheets("Sheet3").Select ActiveWindow.SelectedSheets.Delete 这是我录的一段，能够实现复制，删除

怎么用currentregion 选择区域

用usedrange可以实现要求，具体代码如下： activesheet.usedrange.select 关于usedrange的详细知识：如果想知道当前工作表中所有已使用的单元格区域的大小，或者想引用当前工作表中已使用的区域，那么可能就要想到UsedRange属性了。

UsedRange属性应用于Worksheet对象，返回指定工作表中已使用区域的Range对象，即返回工作表中已使用的单元格区域。

因此，该属性也可以用于选取单元格区域。

下面用一个简单的例子来说明UsedRange属性的功能。

如下图1所示的工作表： 然后，在VBE编辑器中输入如下代码： Sub Sample01() Worksheets("Sheet1").UsedRange.Select End Sub 代码运行后，上面的工作表显示如下图2所示： 即在指定工作表中(本例为工作表Sheet1)已使用范围被全部选中。

可以看出，UsedRange属性返回工作表中所有已使用范围的单元格区域，而不管该区域数据间是否有空行或空格。

特别注意：UsedRange属性返回工作表中所有已使用范围的单元格区域是指：单元格中有数值、公式、单元格格式化设置（例如：单元格字体设置、边框设置等等）

excel如何把A列和B列相同的列合并为一列

宏方法： Sub Sample2() Dim N1, N2 Dim Row1, Row2 Row1 = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row Row2 = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row For N1 = 1 To Row1 For N2 = 1 To Row2 If Cells(N2, 2) = Cells(N1, 1) And N2 >= N1 Then Cells(N2, 2).Delete Shift:=xlUp Row2 = Row2 - 1 ElseIf Cells(N2, 2) = Cells(N1, 1) And N2 < N1 Then Cells(N1, 1).Delete Shift:=xlUp Row1 = Row1 - 1 End If Next Next End Sub 补充：理解有些偏差，代码已经修正，请再测试： Sub Sample3() Dim N1, N2 Dim Row1, Row2 Row1 = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row Row2 = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row For N1 = 1 To Row1 For N2 = 2 To Row2 If Range("B" & N2) = Range("A" & N1) And _ Range("A" & N2) = Range("B" & N1) Then Range("A" & N2).EntireRow.Delete Shift:=xlUp Row1 = Row1 - 1 Row2 = Row2 - 1 End If Next Next End Sub

如何在excel中自动输出文本格式中保证格式不变，因文字比较多自动输出文本后会自动换行，能否做到不换行

Sub sample() Range("C12").Select With Selection .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub 用with 语句嵌套，将上面select内容更新为你写的程序即可