Office Scripts

[Office Scripts]指定した列の最終セルを取得する方法

2021/7/5 追記:
さらに簡単に指定した列の最終セルを取得する方法について記事を書きました。


Office Scriptsでセル移動(Ctrl + 矢印キー)とセル範囲選択(Ctrl + Shift + 矢印キー)ができるようになりました。

//セル移動とセル範囲選択
function main(workbook: ExcelScript.Workbook)
{
const sheet = workbook.getActiveWorksheet();
const range = sheet.getRange("A1");
//セル移動
//任意のセルから指定した方向に移動した先のセルを返す。
//ショートカットキー:Ctrl + 矢印 と同じ
console.log(range.getRangeEdge(ExcelScript.KeyboardDirection.down).getAddress());
//セル選択
//任意のセルから指定した方向のデータが途切れるセルまでのセル範囲を返す。
//ショートカットキー:Ctrl + Shift + 矢印 と同じ
console.log(range.getExtendedRange(ExcelScript.KeyboardDirection.down).getAddress());
}

(Range).getRangeEdgeメソッドがセル移動、(Range).getExtendedRangeメソッドがセル範囲選択です。

個人的にはすごく待ちわびていた機能追加で、これらのメソッドによって終端のセルを簡単に取得できるようになったわけです。
(VBAでいうと下記ページのような実装です。)

ただ、連続したデータ範囲の場合は下方向の指定で問題無いのですが、途中で空白セルが含まれる場合は終端のセルを取得できません(下記参照)。

function main(workbook: ExcelScript.Workbook)
{
const sheet = workbook.getActiveWorksheet();
//連続したデータ範囲の場合は下方向の指定で問題無し
console.log(sheet.getRange("E1").getRangeEdge(ExcelScript.KeyboardDirection.down).getAddress());
//途中に空白セルが含まれる場合は終端セルを取得できない
console.log(sheet.getRange("A1").getRangeEdge(ExcelScript.KeyboardDirection.down).getAddress());
}

そこで通常は下記コードのように最終行のセルから上方向を指定してセルを取得するのですが、Excel 2007でシートの最大行数が変更された過去もありますし、「A1048576」のように最終行を決め打ちするのは控えておきたいところです。

function main(workbook: ExcelScript.Workbook)
{
const sheet = workbook.getActiveWorksheet();
//最終行のセルから上方向指定
console.log(sheet.getRange("A1048576").getRangeEdge(ExcelScript.KeyboardDirection.up).getAddress());
}

VBAでは下記コードのようにRows.CountとEndプロパティを使えば済む話なのですが、Office Scriptsでは同様のプロパティを見つけられませんでした。
改めて考えたらgetRowCountメソッドを使えば良いことに気が付きました。コードはページ下部の「指定した列の最終セルを取得する方法(2)」参照。

1
2
3
4
5
Public Sub Sample()
  With ActiveSheet
    Debug.Print .Cells(.Rows.Count, 1).End(xlUp).Address
  End With
End Sub

仕方がないので、(Worksheet).getUsedRangeメソッドを使って、使用しているセル範囲の中から指定した列の最終セルを取得するコードを書いてみました。

function main(workbook: ExcelScript.Workbook) {
const range = getLastRange(workbook.getWorksheet("Sheet1"), "A");
console.log(range.getAddress());
}
//最終セル取得
function getLastRange(sheet: ExcelScript.Worksheet, column: string): ExcelScript.Range {
let lastRange = sheet.getUsedRange()?.getIntersection(`${column}:${column}`)?.getLastCell() ?? sheet.getRange(`${column}1`);
if (lastRange.getRowIndex() > 0 && lastRange.getValue() === "") {
lastRange = lastRange.getRangeEdge(ExcelScript.KeyboardDirection.up);
}
return lastRange;
}

実は、同様の処理は一年ほど前の下記記事でも書いているのですが、getRangeEdgeメソッドのおかげでかなり短くなり、さらに処理速度も早くなっています。

どんどん便利になっていくOffice Scripts、これからも要注目です!


2021/4/19 追記:

function main(workbook: ExcelScript.Workbook)
{
const range = getLastRange(workbook.getWorksheet("Sheet3"), "A");
console.log(range.getAddress());
}
//最終セル取得
function getLastRange(sheet: ExcelScript.Worksheet, column: string): ExcelScript.Range {
const lastRow = sheet.getRange(`${column}:${column}`).getRowCount();
let lastRange = sheet.getRange(`${column}${lastRow}`);
if (lastRange.getValue() === "") {
lastRange = lastRange.getRangeEdge(ExcelScript.KeyboardDirection.up);
}
return lastRange;
}

関連記事

【感想】特別展「大地のハンター展」に行ってきたよ(2)前のページ

メールを閉じたときに指定したフォルダに移動するOutlookマクロ次のページ

関連記事

  1. Office Scripts

    [Office Scripts]Power Automateからスクリプトを実行する

    下記Webサイトにある通り、Office Scriptsのスクリプトは…

  2. Office Scripts

    [Office Scripts]London Excel Meetup Groupのイベント紹介

    以前、イギリスのExcelコミュニティでOffice Scriptsを…

  3. Office Scripts

    [Office Scripts]SharePointでスクリプトを保存・実行できるようになりました。…

    以前から下記ロードマップに載せられていた、SharePointでOff…

  4. Office アドイン

    Office Scripts機能によってWeb版Excelで操作の記録ができるようになりました。

    昨年からずっと待ち続けていた「Office Scripts」機能、つい…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

zh-CNzh-TWenfrdejakorues

最近の記事

アーカイブ

PAGE TOP