Question

我想使用表的= cell1＆cell2函数合并第一行和最后一行，但由于行数可以动态，因此无法合并。

尝试使用ctrl + up使用相对距离，但无济于事。

理想的是VBA代码，我可以在其中使用“＆”功能合并表格的最上面和最后一行，然后将特殊内容粘贴为文本

parameters:
  projects: ''

steps:
- task: DotNetCoreCLI@2
  displayName: "ProvisionRestoreProjects"
  inputs:
    command: 'restore'
    projects: ${{ parameters.projects }}
    arguments: >
      -s "http://MyFeed/nuget/Feed-feature-yaml/"
      -k "ASDF3234234SDSD"

- task: DotNetCoreCLI@2
  displayName: "ProvisionBuildProjects"
  inputs:
    command: 'build'
    projects: ${{ parameters.projects }}
    arguments: '--configuration release  --no-cache'

- task: DotNetCoreCLI@2
  displayName: "ProvisionPackProjects" 
  inputs:
    command: 'pack'
    nobuild: true
    projects: ${{ parameters.projects }}
    versioningScheme: 'byEnvVar'
    versionEnvVar: 'NugetVersion'
    arguments: '--no-build'

- task: DotNetCoreCLI@2
  displayName: "ProvisionPushProjects"
  inputs:
    command: custom
    custom: nuget
    arguments: >
      push "$(Build.ArtifactStagingDirectory)\*.nupkg"
      -s "http://MyFeed/nuget/Feed-feature-yaml/"
      -k "ASDF3234234SDSD"

Answer 1

如果我理解正确，那么您想要的是一种解决列中最后一个单元格的方法。

您可以执行以下操作：

Set sht = Sheets("main")
column = 1
lastRow = sht.Cells(sht.Rows.Count, column).End(xlUp).Row
Set lastCell = sht.Cells(lastRow, column)

lastCell是一个范围变量，它引用column变量指定的列中的最后一个单元格。我明确引用了工作表，以避免活动工作表出现问题。

Answer 2

Sub MergeCells()
    col = 1    // column A
    lastRow = Cells(Rows.Count, 1).End(xlUp).row
    Mcell = Cells(1, col) & Cells(lastRow, col)
End Sub

如何在VBA上添加最上面和最下面的行

2 个答案: