> 物理位置で移動チェックしているので、TABや全角文字があるとずれませんかね？

ステータスバーの桁表示とずれるのでは？と思ったのですが、全角文字の方は2バイト
のままなのでずれるわけがないですね。アホを露呈してしまった (^^;

あと、せっかくなので冗談のような仕様ですが作ってみたのをアップします。
・移動したい桁数分の半角文字列の行を挿入して移動場所を特定します
・移動場所の手前の文字列を検索文字列として取得します。
・アンドゥで編集をキャンセルします
・特定した場所へ検索にて移動します

★印の所は半角文字列への置き換えが必要です

// --- ここから ---

// JumpColumn.ppa by nasukoji
// 実行にはPPA.DLLが必要です。
var
colm : integer;
lineP : integer;
lineL : integer;
maxSSize : integer;
cNum1 : integer;
cNum2 : integer;
count : integer;
xPos : integer;
xPos2 : integer;
i : integer;
tempStr : string;
searchStr : string;

begin
maxSSize := 100; // 検索文字列の制限サイズ（最大値は260）

// 現在の行を記憶する
lineP := StrToInt( S_ExpandParameter( '$y' ) ); // 物理行

S_BeginSelect();
lineL := S_GetSelectColmFrom(); // レイアウト行
S_CancelMode();

// 移動位置を取得する
cNum1 := StrToInt( InputBox( '桁位置ジャンプ', '桁番号', '' ) );
if cNum1 <= 0 then Exit; // 0以下または数字でない時は終了
cNum1 := cNum1 - 1; // 先頭からcNum1文字右へ移動するので-1する

cNum2 := 0;
if cNum1 > maxSSize then cNum2 := cNum1 - maxSSize;

// 改行を挿入する
S_GoLineTop(1); // 行頭（レイアウト行）へ移動
S_Char( 13 ); // レイアウト行の途中を切断（途中でないならただの改行）
S_Char( 13 ); // 検索文字列開始位置用
S_Char( 13 ); // 検索文字列終了位置用（ここが指定の桁位置）
S_Up();

// 指定桁数-1文字分の半角文字列を作成する（検索文字列の終わり）
tempStr := '';

while cNum1 >= 1000 do
begin
// 1000文字の半角文字列を追加
tempStr := tempStr + ★半角1000文字★;
cNum1 := cNum1 - 1000;
end;

while cNum1 >= 100 do
begin
// 100文字の半角文字列を追加
tempStr := tempStr + ★半角100文字★;
cNum1 := cNum1 - 100;
end;

while cNum1 >= 10 do
begin
// 10文字の半角文字列を追加
tempStr := tempStr + ' 10';
cNum1 := cNum1 - 10;
end;

while cNum1 > 0 do
begin
// 1文字追加
tempStr := tempStr + ' ';
cNum1 := cNum1 - 1;
end;

■ --- つづく ---

■ --- つづき ---
// 文字列を出力する
S_InsText( tempStr );
S_BeginSelect();
colm := S_GetSelectColmFrom(); // 桁位置（レイアウト行）を記憶する
S_CancelMode();
S_Up();

// 検索文字列作成用の半角文字列を作成する（検索文字列の先頭）
tempStr := '';
cNum1 := cNum2;

while cNum1 >= 1000 do
begin

// 1000文字の半角文字列を追加
tempStr := tempStr + ★半角1000文字★;
cNum1 := cNum1 - 1000;
end;

while cNum1 >= 100 do
begin
// 100文字の半角文字列を追加
tempStr := tempStr + ★半角100文字★;
cNum1 := cNum1 - 100;
end;

while cNum1 >= 10 do
begin
// 10文字の半角文字列を追加
tempStr := tempStr + ' 10';
cNum1 := cNum1 - 10;
end;

while cNum1 > 0 do
begin
// 1文字追加
tempStr := tempStr + ' ';
cNum1 := cNum1 - 1;
end;

// 文字列を出力する
if cNum2 > 0 then S_InsText( tempStr );
S_GoLineEnd();

// 桁位置までの検索用文字列として切り出す
S_Down();
S_Down();
S_Up_Sel();
S_GoLineEnd_Sel();
xPos := StrToInt( S_ExpandParameter( '$x' ) ); // 桁位置（物理行）を取得する
S_Down_Sel();
xPos2 := StrToInt( S_ExpandParameter( '$x' ) ); // 桁位置（物理行）を取得する
searchStr := S_GetSelectedString( 0 );

■ --- つづく ---

■ --- つづき ---
// 編集を無かったことにする
S_Undo(); // 文字列出力をアンドゥ
if cNum2 > 0 then S_Undo(); // 文字列出力をアンドゥ
S_Undo(); // 改行をアンドゥ
S_Undo(); // 改行をアンドゥ
S_Undo(); // 改行をアンドゥ

// 指定桁数より行が短い場合、行末へカーソルを移動して終了する
S_GoLineEnd();
if xPos > StrToInt( S_ExpandParameter( '$x' ) ) then Exit;

// 選択範囲が無い場合、行頭へカーソルを移動して終了する
S_GoLineTop(1);
if xPos2 = 1 then Exit;

// 文字列を検索する
while lineP = StrToInt( S_ExpandParameter( '$y' ) ) do
begin
S_SearchNext( searchStr, 18 ); // 文字列を検索
S_Right();

S_BeginSelect();
xPos := S_GetSelectColmFrom(); // 桁位置（レイアウト行）を取得する
S_CancelMode();

// 指定位置、または次の検索では指定位置を越える
if colm < xPos + maxSSize then Break;
end;

S_SearchClearMark(0); // 検索マークのクリア

// 手前でヒットした場合の位置補正
// 手前でヒットすると次の検索では指定位置を通り過ぎてしまうので、
// ここからは検索ではなく1文字送りで指定位置まで移動する。
if xPos < colm then
begin
while xPos < colm do
begin
S_Right();
S_BeginSelect();
xPos := S_GetSelectColmFrom();
S_CancelMode();
end;

// 全角文字・TAB文字の途中用の再補正
if xPos > colm then S_Left();
end;

// 見つからなかったらエラー（あり得ないはず）
if lineP <> StrToInt( S_ExpandParameter( '$y' ) ) then
begin
S_Jump( lineL, 0 ); // カーソルを戻す
MessageBox( 'ジャンプに失敗しました', 'error', 0 );
// Exit;
end;
end;

// --- ここまで ---

▼ なすこじさん
変数宣言したらできました！
ありがとうございました！！！！

これで、ながったらしいデータの確認が早くできます。助かりました。
今の仕事が一段落したら、サクラエディタというものをじっくり調べて
みようと思いますが、取り急ぎご報告まで。