Question

我正在使用row1代码查找Excel工作表中的最后一行，并删除上面的行，直到我们到达(XLUP)上的标题。
我在结束Dim rw As Integer Range("A1048576").End(xlup).Select rw = ActiveCell.Row Cells.Select Range("A" & rw).Activate Selection.DELETE Shift:=xlup Range("A1").Select结束时不断收到编译错误这是我的代码：

include_once   'vendor/autoload.php';


function retrieveAllFiles($service) {
  $result = array();
  $pageToken = NULL;

  do {
    try {
      $parameters = array();
      if ($pageToken) {
        $parameters['pageToken'] = $pageToken;
      }
      $files = $service->files->listFiles($parameters);

      $result = array_merge($result, $files->getItems());
      $pageToken = $files->getNextPageToken();
    } catch (Exception $e) {
      print "An error occurred: " . $e->getMessage();
      $pageToken = NULL;
    }
  } while ($pageToken);
  return $result;
}


$client = new Google_Client();
$client->setAuthConfig('client_secrets.json');
$client->setAccessType("offline");        // offline access
//$client->setIncludeGrantedScopes(true);   // incremental auth
$client->addScope(Google_Service_Drive::DRIVE_METADATA_READONLY);
$redirect_uri = 'http://' . $_SERVER['HTTP_HOST'] . $_SERVER['PHP_SELF'];
$client->setRedirectUri($redirect_uri);
if (isset($_GET['code'])) {
    $token = $client->fetchAccessTokenWithAuthCode($_GET['code']);
}
$service = new Google_service_Device();
echo retrieveAllFiles($service );

Answer 1

声明rw As Long

您可以尝试清除A列中除标题row1之外的单元格。

Dim rw As Long
rw = Cells(Rows.Count, "A").End(xlUp).Row
If rw > 1 Then Range("A2:A" & rw).Clear

Answer 2

尝试，

with worksheets("sheet1")
    .cells(1, 1).currentregion.offset(1, 0).clear
end with

Answer 3

如果您的A列值是连续的（即两者之间没有空白），那么Jeeped解决方案就是您的选择

否则您可能想要使用：

With Cells(Rows.Count, 1).End(xlUp) 'reference last not empty cell in column A
    If .Row > 1 Then .Offset(-.Row + 2).Resize(.Row - 1).EntireRow.Delete xlUp
End With

在这两种情况下，您可以选择以下方法来处理所需范围：

.ClearContents（仅清除范围内容，保留格式和注释）
。清除（清除范围，格式和注释的全部内容）
。删除（删除范围，它具有相同的.Clear加行移位效果）

上述方法从较少入侵（主要是耗时）到最多

列出

我有一个VBA查询

3 个答案: