Question

我尝试将具有下面单元格的标题复制为“强制”值，但我的宏停止在第一个单元格。姓名电话Houe no locality 强制性强制性

<body ng-app="app">
  <div ng-controller="checkController" class="container">
    <div class="row">
      <div class="col-md-2">
        <input type="checkbox" ng-click="checkboxClick()" value="new" name="item" /> Add New Item
        <br />
      </div>
      <div ng-show="hide" id="item-details" class="col-md-6">
        <div aria-label="..." role="group" class="btn-group">
          <button class="btn btn-default" type="button">Left</button>
          <button class="btn btn-default" type="button">Middle</button>
          <button class="btn btn-default" type="button">Right</button>
        </div>
      </div>
    </div>
  </div>
</body>

Answer 1

除了上面评论中所说的内容之外，您通过查看结尾的空单元格将j设置为列数为0.

使用它：

Dim i As Long, j As Long, Lastrow1 As Long, Lastcol1 As Long

Lastcol1 = Sheets("sheet3").Cells(1 , Columns.count).End(xlToLeft).Column
For i = 1 To Lastcol1
    j = Sheets("sheet4").Cells(1 , Columns.count).End(xlToLeft).Offset(, 1).Column
    if j = 2 and Sheets("sheet4").Cells(1,j-1).value ="" then j=1
    If ucase(Sheets("sheet3").Cells(2, i).Value) = "MANDATORY" Then
        Sheets("sheet3").Cells(1, i).Copy Sheets("sheet4").Cells(1,j)
    End If
    Application.CutCopyMode = False
Next i
Sheets("sheet3").Range("A1").Select

由于您逐个单元而不是复制，您只需使新单元格值等于旧单元格值即可。

Sheets("sheet4").Cells(1,j).value = Sheets("sheet3").Cells(1, i).value

VBA - 将特定标题从工作表复制到另一个工作表

1 个答案: