２次元配列の定数ファイルをExcelで自動生成したい。

以下の手順ではどうでしょうか？

1. Excel上でテーブルを作成する。
2. テーブルをCSVで保存する。
3. CSVファイルを読み込み、C言語用のファイルを吐くプログラムを実行する。

3.用のプログラムだけ作成する必要がありますが、これは簡単に出来ると思います。

ちょっと手元にExcelがないので確実にできるかは自信がないのですが、Excelで256*256の表を作って"data.csv"というファイル名でCSV出力し、

float table[256][256] = {
#include "data.csv"
};

みたいな感じで書けば初期化できそうな気がします。

Cなら2次元配列でも256*256個の1次元配列として初期化できますので、256ごとの{}は不要です。ただし、csvファイルの各行の最後に","が必要なので、Excelで最後のセルに空白を入れるなどして、行末に","が入るようにしないとダメですね。

できなかったらゴメンなさい...

　いきなりｃ言語用ファイルを吐いてもOKということで、こんな感じでどうでしょうか。(^_^;

Option Explicit

Sub mkTable()
    Dim i, j, m, n As Integer
    Dim s As String
    m = 256
    n = m
    s = "float table[" + Trim(Str(m)) + "][" + Trim(Str(n)) + "] = {" + vbCrLf
    For i = 0 To m - 1
        s = s + vbTab + "{"
        For j = 0 To n - 1
            If i < 10 And j < 10 Then
                s = s + Str(i * j) + ".0"
            Else
                s = s + Str(0) + ".0"
            End If
            If j < n - 1 Then s = s + ","
        Next j
        s = s + "}"
        If i < m - 1 Then s = s + ","
        s = s + vbCrLf
    Next i
    s = s + "};" + vbCrLf
    'Debug.Print s
    Open "output.txt" For Output As #1
        Print #1, s
    Close #1
End Sub

　10×10のデータから256×256のデータを予想するのをちょっとやってみました。(^_^;
　FORECASTのxの範囲用に258行目を使いました。(^_^;

Sub macroAll()
    Call mkTable1
    Call mkTable2
End Sub

'種データ
Sub mkTable1()
    Cells.Clear
    Dim i, j As Integer
    
    For i = 1 To 10
        For j = 1 To 10
            Cells(i, j) = (i - 1) * (j - 1)
        Next
    Next
    
    ' Forecast用
    Dim k As Integer
    For k = 1 To 10
        Cells(258, k).Value = k
    Next k
End Sub

' Forecastで予想してみる
Sub mkTable2()
    Dim i, j, k, m, n As Integer
    m = 256
    n = m
    For k = 11 To m
        For j = 1 To k - 1
            Cells(k, j).Value = calc1(k, j)
        Next j
        For i = 1 To k
            Cells(i, k).Value = calc2(i, k)
        Next i
    Next k
End Sub

Function calc1(i, j) As Double
    calc1 = WorksheetFunction.Forecast(i, Range(Cells(1, j), Cells(10, j)), Range(Cells(258, 1), Cells(258, 10)))
End Function

Function calc2(i, j) As Double
    calc2 = WorksheetFunction.Forecast(j, Range(Cells(i, 1), Cells(i, 10)), Range(Cells(258, 1), Cells(258, 10)))
End Function

※参考URL
http://dekiru.net/article/4566/