Question

我有VBA代码,选择同一牢房,然后合并和安插;这为选择提供依据。

我谨加强这一机制,以便让我选择一系列或部分的行文,并在每一行之间采取同样的行动。

Answer 1

这里有一条途径:

通过http://www.nijbo.net/index.php查询工作单上最后一个有人居住的浏览量?option=com_content&task=view&id=14&Itemid=32”rel=“nofollow noreferer”> 辅助功能。

Iterate over the rows, and for each row find the last column used via another auxiliary function.

采用由此产生的动态甄选办法,使之脱离。

。单体上层囚室中的数据(距:一片或多间囚室)。囚室中的囚室可以是邻里的,也可以是邻里的。将删除选定范围的其他囚室的数据。

Option Explicit

Sub merge_left_justify()
    Dim i As Long
    Dim j As Long

    Dim last_row As Long
    Dim last_col As Long

    last_row = find_last_row(ThisWorkbook.ActiveSheet)

    Application.DisplayAlerts = False

    For i = 1 To last_row Step 1
        j = find_last_col(ThisWorkbook.ActiveSheet, i)
        Range(Cells(i, 1), Cells(i, j)).Select
        Selection.Merge
        Selection.HorizontalAlignment = xlLeft
    Next i

    Application.DisplayAlerts = True
End Sub

Function find_last_row(ByRef ws As Worksheet)
    Dim last_row
    last_row = Cells.Find(what:="*", after:=[a1], _
        searchorder:=xlByRows, searchdirection:=xlPrevious).row
    find_last_row = last_row
End Function

Function find_last_col(ByRef ws As Worksheet, ByVal row As Long)
    Dim last_col
    last_col = Cells(row, 255).End(xlToLeft).Column
    find_last_col = last_col
End Function

Answer 2

实际上,为了回答我自己的问题,我在寻求帮助时,用一些法典来发言。没有人会看到任何问题? 除我外,还有人反对《综合框架》的声明,认为该声明不应忽视,也不应混淆任何一谈。

Sub MergeLeft()

    Dim range As range
    Dim i As Integer
    Dim RowCount As Integer

      Merge Macro
      Keyboard Shortcut: Ctrl+Shift+A

    RowCount = Selection.Rows.Count
    For i = 1 To RowCount
       Set range = Selection.Rows(i)
        If range(i) <> "" Then
       With range
          .HorizontalAlignment = xlLeft
          .VerticalAlignment = xlBottom
          .WrapText = False
          .Orientation = 0
          .AddIndent = False
          .IndentLevel = 0
          .ShrinkToFit = False
          .ReadingOrder = xlContext
          .MergeCells = False
       End With
       range.Merge
        End If
    Next i

End Sub

Answer 3

为什么不使用雇佣军? 其内在工具正在 drop倒。如果你需要打扫Merge的工作方式,你也可以使用Merge(A Cross)

友情链接